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4706 


325 


r. 


USHA*6 ■ • 


02060 


12 


2224 


326 


• » ■ • 
. * ■•*£ 


ENTALtBUFf,3vSv, . 

■ v • »';• . r • 


02061 


50 


4614 


327 


''A 


\ \ % /*, *'• ? ?f 4P * ! , •*. « 

ushau*120^'!®; 


02062 


50 




33Q 


' - ' V 


RSHA*12D^^| c U. . 


02063 


16 


2207 


331 


‘ !»>' • 




02064 


4** 


2123 


; 332 . 




• STRAL*T5DJ'Stt4^:Vv ■;/& 


02065 


12 


2225 


333 


V : *'•! * 




02066 


71 


7737 


334 


v . ; ; i: ( $ , , 


^.ADDALK*773T^^-wi : 


02067 


50 


4614 


335 


■ *■ : jfVi ‘ . 

■ • ; •>.* 


iiHkwimMWWriy - 


°$07Q 


51 


2221 


336 






: 02071 


44 


2124 


337 


' + - -s'. 


;,^TRAt*TS0|$i|^|5Q 


02072 


12 


2204 


340 


v a V” ' ! \ : 


. ENTAL*a V. 


02073 


50 


4203 


341 


, ’ . t 


■ bshau*3 


02074 


52 


2214 


342 




. SWtt*K3 : • 


02075 


02 


2217 


343 


• f 


< CMAL*K4 


02076 


63 


2107 


344 




*J0|iiOT*TSDj iglA-sVrf.i’ , ' 


02077 


12 


2125 


345 




ENTAL*TsOte^;^- : • 


02100 


51 


2220 


346 


( ."V 


5tSET*K5 s:iv- 

h&W " fF . . - 


02101 


44 


2125 


347 


. N ’ 

• *:tV 


STRAU*TS01^vi;H ’ V. 


02102 


44 


2136 


350 




.&TRAL*TSD3Vv^r • " ; 


02103 


12 


2130 


351 


V 


Ental*tsd 2^^'^ v- • 


02104 


51 


2220 


352 




SU5Ef*K5 ‘tyW 


02105 


44 


2130 


353 




StRAL*TSD2> ; " 


02106 


44 


2141 


354 


t. 


STRAL*TSD4 


02107 


30 


2110 


355 


T5PIS2 


T¥PT*SCR*ERROf< FUNQT10N 


02110 


01 


QOOO 






, V*' 


021U 


76 


4562. 






ub ■ ■ '■ -V V 


02112 


62 


2062 




• v 


!. .x . " ' : - 


02113 


00 


4665 




*’ 


/ • ■«.**■ 


02114 


56 


4364 








02115 


51 


2056 






’>( •< ■ I 

• 1 • •. * ’ . 


02116 


00 


4320 






* *■ . . 
h ; - *■ : 


02117 


44 


4500 




V 




02120 


77 


7777 






Vi • 



FORMAT ERROR II TYPE- 



404040 






•k* i* lu,-. .. .„,. 
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fa- 



( , 



02121 

02122 

02123 

02124 

02125 

02126 



Q2127 

02130 

02131 

02132 

02133 

02134 
P2135 
02136 



02137 

02140 

02141 

02142 
92143 



( 



t 



PAGP 009 



30 2122 

oi 9000 
70 7070 
70 7777 
50 1200 
oo 2037 



m 



TSDIsl 









397 

360 



00 2037 
50 2600 
71 OOqo 
10 7622 
12 7623 
50 6601 
40 2037 
50 1200 



962 : 

363 

364 
366 

366 

367 




DISPLAY ERRORING FUNCT. LODE 



.ADPAmowif; 1 

ST0P41- -%-Ahtr 



Cf_£AR C REG* 



00 2037 
00 *037 
50 2600 
71 7777 
55 *040 



971 



373 

374 
376 

376 

377 
400 



0*TFX 
Q*fFX * ' • 

0UTOV*O- 

ADDALK*7*7?M£A ; V ' 

PR0S*CASEY*30APL64 

REMARK^THIS SUBROUTINE CONTAINS THE NORMAL 
REMARK^CONSTANTS used IN COMMAND and B REG 



401 



REMARK*TESTS also CONTAINS error display SUB 



02144 


77 


7777 


402 


TPAT‘ 


777777* 


02145 


77 


7777 


403 




777777* 








404 




DBLSET* 


02146 


00 


oooo 


405 


TPAT1 


0* 


02147 


00 


0000 


406 




0* - 


02150 


25 


*525 


407 


TPAT? 


252525* 


02151 


25 


*525 


410 




252525* 


02152 


52 


6252 


411 


TPAT3 


525252* 


02153 


52 


5252 


412 




525252* 


02154 


77 


0000 


413 


TPAT4 


77*0 


02155 


77 


0000 


414 




77*0 


02156 


00 


7777 


415 


TPAT5 


7777* 


02157 


00 


7777 


416 




7777* 



A#-,:; 



>* A ;- 



‘ %V K’v,:-:;- 



rm-\ 
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) 

J 



02160 


70 


7070 


. 417 


TR*T6 


707070*. 


02161 


70 


?070 


420 1 


*K 


707070* 


02162 


07 


0707 


421 


TPAT7 


070707* 


02163 


07 


0707 


422 


"V . ■; , 


070707* 


02164 


20 


Q001 


423 • . .. 


TPA& ' 


aooooi* 


02165 


30 


QO0Q 


■ ■424',’ 


... 


30*0 


02166 


00 


QOOl 


. 425 - • 


: TPABI 


1* 


02167 


77 


7776 


426 : 


. ,V. 

* : ;4* • 


777776*. 


02170 


40 


PQOQ 


427 ■' 


TPAB2 


40^0 


02171 


00 


0505 . < 


430 ! 


< ‘ ro 


305* 


02172 


31 


$132 


. 431.. 


TPAB3 


312132* 


02173 


57 


7777 


432 • 




; 677777* 


02174 


10 


7777 


433 


i TPAB4 


107777* 


02175 


27 


7777 


434 




277777* 


!' 02176 


01 


oooi 


43§ 


TPAB5 


010001* 


02177 


67 


7777 


4?6 




677777* 


02200 


00 


0020 ( 


.437 


TPAB6 


20* 


02201 


00 


0021 


440 


* Ji 


. 21* •' 


02202 


00 


0022 


441 


TPAB7 


22* 


02203 


00 


0041 


442 




41* 


j 02204 


00 


Q000 


443 


ALPARM 


0* 


02205 


00 


Q077 


444 


K1 " 


000077* 


i 02206 


40 


•*000 


445 


K1A 


404000* 


02207 


40 


4040 


446 


K1B 1 

“> i ■ 


404040* 


02210 


00 


7700 


447 


K2 .' 


007700* 


02211 


00 


0037 


450 


K1Q * 


000037* 


02212 


77 


7700 


451 


KID 


777700* 


02213 


00 


0001 


452 


K1E 


000001* 


02214 


00 


0037 


453 


K3 


000037* 


02215 


77 


QQOO 


454 


KiF 


770000* 


02216 


77 


7700 


455 


K1Q 


777700* 


02217 


00 


0000 


456 


K4 


000000* 


02220 


00 


0001 


457 


K5 


000001* 


02221 


00 


7700 


460 


K6 


007700* 


i 02222 


00 


0000 


461 


BUFFJ 


0* 


! 02223 


00 


Q0OO 


462 


BUFF2 


0* 





\ 



/ 



\ 
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PAGE Oil 



0222*1 

02225 

02226 
02227 

02230 

02231 

02232 

02233 

02234 

02235 

02236 

02237 

02240 

02241 

02242 

02243 

02244 

02245 

02246 

02247 

02250 

02251 

02252 

02253 



00 0000 
00 0000 

00 2020 
00 5050 
00 2222 
00 7070 
00 5333 
77 5252 
00 2525 
77 7070 

00 0707 
00 OQlO 
00 Q017 
00 0015 
00 0012 
00 0002 
00 0004 
00 0007 

77 7775 
OQ ,Q 02 O 
00 0027 
00 0035 
00 0032 
00 QQOO 



02254 77 7776 



02255 

02256 

02257 
02260 
02261 
02262 

02263 

02264 

02265 

02266 



77 7777 
77 7777 
17 7777 
ol QOOO 
37 7777 
00 0000 
20 0000 
50 0000 

47 7777 
67 QQOO 



463 



465 

466 

467 
476 

471 

472 



47.4 



477 

560 

501 



503 

504 



BUFF3 

aim 

. '•>: ' 



■ TPAK-g" 

:v> : tpak$ 

: .'i;TPA l K4 

- TPAK5 
; . TPA.K 6 

'■r- -H-. 



Q* 

2020 * 

5050* 

22227 



' . . *v 

. <* TV 



3333* 

; 775252*’ 
2525* 
7770707 



sf TPAS4-- 
TPAS5 
.TPAS 6 







505 


TPAS7 


■ 777775* 


5Q6 


TPAS10 


00*0020 


507 


TPA511 


00*0027 


51Q 


TPAS12 


00*0035 


511 


TPAS13 


00*0032 


512 


TPAR 


0 * ■ Vfc&l 


513 




D0L5ET* 


514 


! 7 C 0 i; 


777776* :;|.i 


515 




777777* 


516 


TC01 


777777* ; 


517 




177777* •• 


520 


TC02 


01*0 


521 


TC03 


377777* 


522 


TC04 


0* 


523 




20*0 


524 


TOUT 


50*0 4-. 


525 


TCMTl 


477777* , 


526 


TCUT2 


67*0 -\K : 


) 




“V ' 
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02267 

02270 

02271 

02272 

02273 

02274 

02275 

02276 

02277 
02300 
0250V 



02502 

02303 

02304 

02305 

02306 

02307 



02310 

02311 

02312 

02313 
02514 

02315 

02316 

02317 

02320 

02321 

02322 

02323 

02324 



07 7777 


527 


" '-4U 

T.CUT3 


077777* • >4 ■ 


70 0000 


53Q 


i TGUT4 


70*0 


34 3434 


531 '■*, 


TCUT5 


343434* , 


11 5563 


532 


■ TCUT6 


113663* , 


66 4114 


533 : 


v TCUT7 




00 0042 


, 534 


’ SGCNT ■■ 




00 Q000 


•535 


.. SAVEB 


536 ; 


s TFSHi ; 


' •pR0G*SCqTJf^pV54 


00 0000 


537 


TFSHl 




70 P922 


540 


, ' St R A " 


44 2506 


541 


•V S 

/ 


55 2276 


•' S42: ! 


V < y - ■ ■ ' .&■ ■ •' 


' 1 JP*TFSHV»MlSC|i : • 

* '• ;; • ; ’ 


■ , 


543 


.. TFSH2 


' ' : FR0©*5<r0TlKsi!#^H i - - 


00 QOOO 


544 


"• • TFSH2 ' 


0* ' 


70 00*7 


545 


A t * H ' i 




44 2306 


546 




. STRAL*TSH^|^^V^ , 


55 2302 


547 




00 0000 


550 


TSH 


or . 


00 0000 


551 


TSCOT 






552 


TFO? 


PRpS*SC0TT*30APL64 








553 

554 


{5 t 


REMARK*ERROR D|SPUAy» FUNCU 

remark*coRre'ct pattern IN *U 


CODE IN C REG* 




555 


: l; • ‘ 


remark*incPrr£ct pattern in 


At 


00 0000 


556 


TF02 


O'* 


COMPARE AL to Y 02 


70 0060 


557 


ENTALK*60 ; Wj’ • 


SET TYPE0UT BUFFER 


44 ?222 


560 




$TRAt*8UFFl. 


TO CODES FOR 02 


70 0062 


561 


M. 


ENTALK*62 




44 2223 


562 ‘ 




STRAL*BuF£j2;:-,\. ... 




12 2322 


563 


: 


ENTAL*TF0?2*2’ 


SET UP 


44 2037 


564 




STRAL*TpX Y , Y * , 


ERROR DISPLAY 


76 2302 


565 




rjp*tfsh2' ,4 v---v.*. •:,.- . 


SET UP SHIFT 


10 2146 


566 




ENTAU*TpATl : r 


CORRECT TO AU 


12 2146 


567 




ENTAL*TPAT1 


CLR AL 


02 2147 


570 




cmau*tpat!*1v y 


TEST FUNC 


61 2326 


571 


i 


JPEQ*L0K+3 v V : y 


CHECK OK 


76 *742 


572 


TF022 


RJP*TFDIS V V' ; ! 


ERROR DISPLAY 
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PA6r-' 013 






02325 


55 


2310 


573 ■. 




IJP*TF02Vy ; n 


ERROR EXIT 


02326 


10 


2166 


574 


: ■ 


ENT Ay*TpABl 


CORRECT TO AU 


02327 


02 


2166 


575 




CMAt*TPABi;fVf ( -.-'. 


TEST FUNC 


02330 


61 


2324 


576 




JPEQ»TFQ22^#'V' ' • 


ERROR JUMP 


02331 


70 


0001 


577 


1 ■ ■ v 


■ . ENTALK*1 


SET AL TO 000001 


02332 


02 


2166 


6Q0 




. ■ 

. ' ... ••••• m&ffiV'p:- 


TEST FUNC 


02333 


63 2324 


601 


'■ k • ' ' : 
■ 1 V* ( • \tk 


■ jpN0T«TF!®8^k'' 


error jump 


02334 


50 


4601 


602 


y TFp24 ; , 


L5Hal*i 


SHIFT PATTERN 


02335 


02 


2166 


603 






TE5T FUNC 


02336 


61 2324 


604 


V;; ; :V '■ . 


; JPE0*TFQ^$^^: ; . 


ERROR JUMP 


02337 


57 


2306 


60S 


. *. '• ■ . * 


, ; .lSKtTSH ; 

JP*TF024 


ALL PATTERNS CHECKED 


02340 


34 


2334 


606 




NO CONTINUE 


Q2341 


76 


2302 


607 




■ rjp*tfsh2^^vh-i^. ; 


SET Up SHIFT 


02342 


70 


7776 


610 


. i ■ * . 


■ ; ENTAlK*77t|^| ; ::^i. ; - 


SET AL TO 777776 


02343 


10 


2254 


611 


.. S*. • • 


ENTAU*TCQ^j^^-H,,,' ' 


CORRECT TO AU 


02344 


02 


2254 


612 






TEST FUNC 


02345 


63 


2324 


613 




UpNOTfTFjfll^!# 5 ^ , 


ERROR JUMP 


02346 


50 


4601 


614 


Tp025 


LSHAL*1 ■ 


SHIFT PATTERN 


02347 


02 


2254 


615 


0MAL*TCO 


TEST FUNC 


02350 


61 


2324 


616 


» 


JPEQ*TP022|fc^l':^T. ’• 


ERROR JUMP 


02351 


57 


2306 


617 




I5K*TSH ;■%$$?*$)&.?*■ 


ALL PATTERNS CHECKED 


02352 


34 


2346 


620 




UP*TF025 •• ? 


NO CONTINUE 


02353 


70 


QOOO 


621 




ENTALK*0 , - 


CLR AL 


02354 


02 


2254 


622 




c’mal*tco ‘ ' 


TEST FUNC 


02355 


65 


2357 


623 




vJpMLEQ*L0)^t2r Vi 


CHECK OK 


02356 


34 


2324 


624 


* 


JP*TF022 !/ : 


ERROR JUMP 


02357 


70 


7776 


625 


•- 


ENTALK*7776 


SET AL TO 777776 


02360 


10 


2166 


626 


■» 


ENTAU+TpABl V 


CORRECT TO AU 


02361 


02 


2166 


627 




CMAL*TPABi 


TEST FUNC 


02362 


67 


2364 


630 




4PM6R*L0K+2 - ; : ; . ' 

V.' . . ;'»■> '* * ! •' ' 


CHECK OK 


02363 


34 


2324 


631 


> 


JP*TF022 ■ ' 


ERROR JUMP 


02364 


55 


2310 


632 

633 

634 

635 

636 


TF03 

> 


IJP*TF02 H; ; ! 
PR06*SCoTT*30APU64 
R£MARK*ERRQR PISPLAV» FUNCT, 

remark*correcT pattern in au 

REMARK ♦iNCORRtCT PATTERN JN 


EXIT 

CODE IN C REG* 
AL 


02365 


00 


00^0 


637 


TF03 


0* . ' 


compare al to v+b 03 
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PAGr 014 






02366 


70 


0060 


640 


ft 




SET TYPEOUT BUFFER 


02367 

02370 


44 

70 


2222 

0063 


641 

642 


‘ 4, 


. 5TRAL*BUF|l ; |%V>v‘ 
EN TALK*’63^§ i m^T •. 


TO CODES FOR 03 


02371 


44 


2223 


643 


x-.: T ‘ •» ' ’ 


• $TPAL*.BUirmm^ ;■ 


SET up 


02372 


12 


2401 


644 ;.. - 


• ’ < % ; > 


ENTAL*TFQ3gi|P;^.:; 


02373 


44 


2037 


645 • 


* ■ " 1 ■ V; 


STRAUTFXi|^ : ^;v : ■ 


ERROR DISPLAY 


02374 


44 


2306 


646' 


■ J : hi. • ' • 


5tRAt*TSHffff^:-: ■■ 


SAVE FUNC 


02375 


36 


OOQQ 


•• 647 • 


• ; V 

' ' ; • Sk . > ; 


• KU . . '• V’-V '••• 

■ entsk*q . 


CLR B 


02376 


12 


2254 


650 


• i • . 


SET At TO 777776 


02377 


44 


2307 


651 


; 'J. 


• 5TRAl*TsCpt-‘^V- ,:?V=- 


SAVE PATTERN 


02400 


10 


2307 


652 


' . 


Entau*tscp* ? ;^ ,v. 


CORRECT TO AU 


02401 


03 


23Q7 


653 




• , CMAUB^SCOT:^^' • 


IS AL CORRECT 


02402 


61 


2405 


654 


, ; . ; ‘ . 


' ‘ •' ■- ■ 


check ok 


02403 


76 


1742 


655 


TF032 


. Rjp«TF0l5i^fe’.v4 ■ 


ERROR DISPLAY 


02404 


34 


2413 


656 


Jp*TR03 


restore test 


02405 


50 


4601 


657 




LSHAL*1 r •• 


SHIFT PATTERN 


02406 


03 


2307 


660 




CMAUBtTscoMm.^*-':': 


is al not equal 


02407 


61 


2403 


661 




JPEQ*TF'O3R^;0f;'4T' 


error JUMP 


02410 


44 


2307 


662 




5TRAU*TSC0Ti^4/.^;;' 


SAVE PATTERN 


02411 


56 


2202 


663 


to 


bsk*tpab7^M:;k v - , - 


ALL PATTERNS CHECKED 


02412 


34 


2417 


664 


11 


JP*L0K+5 ■ 


• NO CONTINUE 


02413 


12 


2306 


665 


TP 03 


■ ENTAL*TSH !i “ M ; V ’ •• 


set al to ORIS 


02414 


44 


2401 


666 


,'1 ; 

. . (i 


STRAU*TF032f2 


RESTORE FUNC 


02415 


44 


2406 


667 


*4. = 


STRAL#TF032+;3 ’ : 


RESTORE FUNC 


02416 


55 


2365 


670 


3 : . 


J JP*TF03 , . ' * 


EXIT 


02417 


12 


2401 


671 


V. 


ENTAL*TF032-2 


SET AL EQUAL FUNC 


02420 


71 


7776 


672 


• V 


ADDALK*7776 ; 


ADDRESS -l 


02421 


44 


2401 


673 




5TRAL*TF032*2 


RESET FUNC 


02422 


44 


2406 


674 




STRAL*TF03243 : 


RESET FUNC 


02423 


12 


2307 


675 




ental*tscot 


RESTORE PATTERN 


02424 


34 


2400 


676 




JP*TF032-3 


CONTINUE TEST 








677 


TF04 


PR0S*CAsEY*30ApL64 










700 


* 1 


remark*error display? punct* 


CODE IN C REG* 


> ' 






701 


-i 


remark*correct pattern in m 










702 




REMARK»INCPRR6)PT PATTERN IN 


AL 


02425 


00 


0000 


703 


TF04 


0* 


SEt^CTIVE SUB 



i 



j 




SHEET 452 REVISION ’ 3 
SB-10163 



02426 70 Q06Q 



ENTAL|<*6d|f / 

•v : - v- r/i'A&w:' 



02427 

02430 

02431 

02432 

02433 

02434 

02435 
P?436 

02437 

A2440 

02441 

02442 

02443 

02444 

02445 

02446 

02447 

02450 

02451 

02452 

02453 

02454 

02455 

02456 

02457 

02460 

02461 

02462 

02463 

02464 

02465 

02466 



44 8222 , 
70 0064 
44 2223 , 

12 2436 
44 2037 
10 2146 
12 215* 
04 2150 

02 315Q 
63 2 l m 
10 2156 
12 2154 , 
04 2156 
02 2144 
63 2471 
10 2152 

12 2146 
04 2144 
02 2152 
63 2 t *77 
04 2150 
63 2475 
10 2144 
04 ?152 

02 2153 
63 2477 
10 2162 
12 2167 
04 2154 
02 2235 
61 2470 
10 2235 



02467 76 *742 

02470 55 2425 

02471 10 2150 



TR04 

TR040 



STRAU*TFXc : ^^m ' 
,pNTAUfTf>A^»^^ 
■ENTAL^TR«f|m||t§:; 

! CMAt*TPAtri|^®; 

jp N OT* T R 0 4 ' 

.Si;SimPAT£ 

CMAL*TPAty;‘p^r 

JPN0T#TR 

ENTAU*Tp|f|St§im r 

, • V - v j 

,ENTAL*TpATA^>%f 
J5LSy*TPAT^%'^^ ' 
, CMAL*TPAT3 
JPN0T*TR04 H ■ ' ' 

SLSU*TPAT2-'^W^V-..w ; 

JpALNZ*TR043vvi;.< ? ;-' 

ENTAU*TpAT';7 V; 'l', ' /"'• 

SLSU*TPAT3 ; ^ ' 

CMAL*TPAT3*t. 
JPN0 T*Tr 044 v ; 
ENTAU*TPAT7. / ,v'-, 

E N T A L * T p A R *■ 1 1; : 
SL5U*TPAT4 
CMAL+TPAK7 
JPEQ*TR04*1 \ 

ENTAU*TPAK7 ; ; • 

t . ‘ ..V . J x \ • 

RJP*TFDIS • 
IJP*TF04 • - : '&rA, 

entau*tpat2 : .^'- 



PAG r 015 

SET TYPEOUT BUFFER 
TO CODES FOR 04 



SET UP 

ERROR DISPLAY 
CI.R AU 

SET AL TO 252525 
SEL' SUB 252525 

IS* At CORRECT 
ERROR JUMP 
SET AU TO 007777 
SET AL TO 770000 
SEL SUB 007777 
IS AL CORRECT 
ERROR JUMP 
SET AU TO 525252 

CLR AL 

SEL SUB 777777 
IS AL CORRECT 

error Jump 
SEL SUB 252525 
ERROR JUMP 
SET AU TO 777777 
SEL SUB 525252 

IS AL CORRECT 
ERROR JUMP 
SET AU TO 070707 
SET AL TO 777776 
SEL SUB 77000Q 
IS AL CORRECT 
YES EXIT 
CORRECT TO AU 

ERROR DISPLAY 
EXIT 

CORRECT TO AU 
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016 



02472 


34 


2467 


750 




Jp*TR04/ 


display 


02473 


10 


£144 


751 : 


TRQ41 


ENTAU*TpAT|$^«^ " ■ 


correct to au 


02474 


34 


2467 


752 


• _ .{. ■ 


Ppptrqa . •. 


DISPLAY 


02475 


10 


2146 


■. 755 : ' 




/eNTAUpTpAm^tev:' 


CORRECT TO AU 


02476 


34 


2467 


■•■754 ; - 






DISPLAY 


02477 


10 


2152 


755 • 


; TR044 


•• 6NTAM*T^pgf t:.fvv| •: 


CORRECT TO AU 


02500 


34 


2467 


756 


... . : ■ ji 


vlP.*TR04, ; . ;v-' 


display 








757 

750 


■: TFqsr 

• ‘ 


prog+ca se^Mp,U64 
REMARK*ERR0R vP<l£PLAY * func t , 


COPE IN C REG. 








761 


' . ; •' ; 0 ' 


REMARK+COppEilv: PATTERN IN Au 










, m ' 


r • 1$; 


REMARK* iNpRRlpT PATTERN IN 


AL,.- 



02501 


00 


0000 


765 


TFQSv . o* • • . 


SEL SUB Y+B 


02502 


70 


0060 


764 


; .. -ENTAUl , 6t^^gv^ ! -. 


SET TYPEOUT BUFFER 


02503 

02504 


44 

70 


2?22 

9065 


765 

766 > 


■ V-V- . •^tRAL*0UFit^li;^;. ; . 

: ::ENTALK*65#^K^, r -' ■■ ■ 


TO CODES FOR 05 

i- 


02505 


44 


2223 


767 


6TRAL*BPFR|^M^. •• •• V 




02506 


12 


2513 


770 


" s - . ENTAL*LOK||ip^#iv • 


SET Up 


02507 


44 


2037 


771 


' ’• stral*tfkmM^m.-: . 


ERROR DISPLAY 


02510 


32 


2166 


772 


ENTa*TPABl^|^Vb^ • . 

y* J* s Jt ... 


SET B TO 1 


02511 


10 


2146 


773 


• '+ ■■ ENTAU*TpATl’r5 • 


clr au 


02512 


12 


2151 


774 ,v 


. e* ■ ENtAL#TPAT2Vl v :;:.v-# ' 


SET AL TO 252525 


02513 


05 


2151 


775 


•» Slsub*tpat5^i 


SEL SUB 525252 


02514 


02 


2150 


776 


eMAL*TPAT2V.;.-.;^ : ‘V 


IS AL CORRECT 


02515 


63 


2553 


777 


v. jpN0T*TR05p. 


ERROR JUMP 


02516 


32 


2146 


1000 


. * ENTB'*TPATlv 


CLR B 


02517 


10 


2156 


1001 


v ENTAU*TpAT5::.V:i V; : v [ ■ 


SET AU TO 007777 


Q2520 


12 


2154 


1002 


ENTAL*TpATj»V4.- .. 

r >\; ' v * • . 


SET AL TO 770000 


02521 


05 


2156 


1003 


7 - f ; . ; :*c *“ ; 

» SLSUB*TpAT5 >v.;. 


SEL SUB 007777 


02522 


02 


2144 


1004 


61 CmAL*TPAT "VTv’T :>'#» • 


IS AL CORRECT 


02523 


63 


2555 


1005 


c - dPN0T*TR05r^^-i^'‘ 


ERROR JUMP 


02524 


32 


2167 


1006 


ENTB*TPABlt 1 : Vf: • ; .j . 


SET 8 TO MINUS 1 


02525 


10 


?152 


1007 


ENTAU*TpAT3 V, 


SET AU TO 525252 


02526 


12 


2146 


1010 


ental*trati- ' 0 > '• • 


CLR AL 


02527 


05 


2147 


1011 


SLSUB*TPATl.ti; •; ■ 


SEL SUB 777777 


02530 


02 


2146 


1012 


CMAL*TPATl; ; % k / ; j - . 


IS AL CORRECT 


02531 


63 


2557 


1013 


' JPN0T*TR05R^urV, 


ERROR JUMP 
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02532 

02533 

02534 

02535 

02536 

02537 

02540 

02541 

02542 

02543 

02544 

02545 
0.2545 

02547 

02550 

02551 

02552 

02553 

02554 

02555 



32 2243 
05 2146 
63 2561 
32 2246 
10 2144 

05 2154 
02 2153 
63 2557 
32 2244 
10 2162 
12 2167 
05 2150 
02 2235 

61 2552 
10 2235 
76 1742 
55 2501 
10 2150 
34 2551 
10 2144 



1016 

1017 

1020 



1024 



1032 

1033 

1034 

1035 

1036 

1037 



••'j! 

"-.4 
■'H , 
% 

% 






TR05p 

TR051 



02556 


34 


2551 


1040 




02557 


10 


2152 


1041 


TRQ52 


02560 


34 


2551 


1042 




02561 


10 


2146 


1043 


TR053 


02562 

> 


34 


2551 


1044 

1045 

1046 

1047 
1050 


TF06 


0a563 


00 


QOOQ 


1051 


TFQ6 


02564 


70 


0060 


1052 




02565 


44 


2222 


1053 




02566 


70 


0066 


1054 




02567 


44 


2223 


1055 




02570 


12 


2576 


1056 




02571 


44 


2037 


1057 




02572 


76 


2302 


1060 





ENTB*TPA§4; r , 

s|_sub*tpaj 2*2 f.. £ 

JpALNZ^TROSS 1 :;}^ 
ENTB*TPAS7/: • .. . 

, ; ^ V-.v ; , 

; .CMA^TRATIJI^fef : J :. 
JpN0T»TR092;;:fef-|'^ 
v ENTB4TPA55|jMtik f 
: ■ E N t A U ♦ T P if s : ■ ' 

^,:';.-ENTAW»TPA9Mlfer i:; v 

,45L5UB*TRAt!4|^f^^' ' ' V 

CMALfTPAKTv 







jpeq* 
■ENTAU*TpAA7 






& f 




ENTAlJ*TPAT2y^ i -^-' 

Jp * TR 0 5*- vS'*' 4 ^" 

entau*tpa 

^ pnR05 ;i^.;^, , . 

ENTAU*tp4T^eI^;f' : ' 

Jp*TR05 W%m; : . 

ENTAU*TPAT1 . - ; •• 

JP*TR05 v» * • - 

PRO0*SCOTT*3OAPL64 
REMARK*ERROR DISPLAY t FUNCT; 
REMARK*CORRECT, PATTERN in AU 
REMARK* INCORRECT PATTERN JN 

o* 

EnTALK* 60- : -r ' . 

STRAL*BUFFi'f--- 
ENTALK*66 
STRAL*BUFF2 > .r 

ENTAL*TF063^2 

STRAL*TFX ; 

RJP*TFSH2 >. ' , r 



SET B TO 2 
SEC SUB 252525 
ERROR JUMP 
SET B TO MINUS 2 
SET AU TO 777777 

SeL SUB 525252 
IS AC CORRECT 
ERROR JUMP 
SET B TO 4 
SET AU TO 070707 
SET AL TO 777776 
SEC SUB 77O0OQ 
IS *L CORRECT 

YES EXIT 
CORRECT TO AU 
ERROR DISPLAY 
EXIT 

CORRECT TO AU 
DISPLAY 
CORRECT TO AU 
DISPLAY 

CORRECT TO AU 
DISPLAY 
CORRECT TO AU 
DISPLAY 

CODE IN C REG. 

AL 

COMPARE MASK 06 
SET TYPEOUT BUFFER 
TO CODES FOR 06 



SET UP 

ERROR DISPLAY 
SET UP SHIFT 



Ci 1 ~~irrri — r~M~r — ' ■ 



0 s 
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PA6<r 018 



02573 


10 


2444 


4061 






MASK TO AU 


02574 


70 


QOol 


4062 


■*« 


e'ntalk*!’- ^ ■ 


SET AL TO 000001 


02575 


44 


2307 


4063 




STRAU*T5Q^vii':^ 


SAVE AL 


02576 


06 


2307 


4064 


•••'* 

■ • ’ • , $ ■ 


. CMSK*TSCO.tljC^f^ ; . 


TEST FUNC 


02577 


61 


2603 


4065 . 


■■■■■'• 5 ■* 4 


' JPEQ*t0Kii'^Mgli^ . ' 


CHECK OK 


02600 


10 


2307 


1066 ; 




• • ' i liTxlf'i .Is* ' '* . ' 


CORRECT TO AU 


02601 


76 


1742 


4067 


. 4 

: ■ * , 


. r^p*TFDI5^M;.'^ 


ERROR DISPLAY 


02602 


55 


2563 


40.70 


■'H 


, IJP*TF06 ■; 


ERROR EXIT 


02603 


50 


H601 


1074 


ry • 




SHIFT PATTERN 


02604 


06 


2307 


4072 ! 


' 'H 


:TCM5Kf TSC6'm^;.' , 


is al not equal 


0g605 


67 


2600 


4073 




" t gpM6R*TF0£3g^ .\*?b ’ 


ERROR JUMP 


0^606 


57 


2306 


1074 \ 


‘ ‘ ’ : • ' «' 


V - l$Kf TSH ■ f ||t <%.£: . 


ALL patterns checked 


02607 


34 


2575 


4075 




: Jp*TF063»fj%fe^.iSi-v 

SJP*TF5H2||^ ; ^:ir:; 


NO CONTINUE 


02610 


76 


2302, 


4076 


- 5 ' 


SET UP SHIFT 


026U 


70 


7776 


4077 


v 


'i ^TAUnTT^&^if ’ 


SET AL TO 777?76 


02612 


44 


2307 


4400 


TF065 


STFAL»TSCbW|^^^ H ' 


SAVE AL 


02615 


06 


2307 


4401 


CMSK^TSCOfM^?. 


TEST FUNC 


02614 


63 


2600 


4402 




JPNOTf TF06S,M?-: & ' ' 


ERROR JUMP 


02615 


50 


4601 


4403 




4.SHAM-1 r 


SHIFT PATTERN 


02616 


06 


2307 


4404 




, CMSKnscOT-^i^'’ 


IS AL UNEQUAL 


02517 


67 


2621 


4105 




JPM6R*L0Kf2^'$^:'i* • *' 


YES CONTINUE 


02620 


34 


2600 


4406 


.-•C; • 


' JP * TF 0 6 3 ■ 

: " u’l’ V’K ’■ 


ERROR JUMP 


02621 


57 


2306 


1107 


V 


. f :< « v . 

•JSK*TSH . • 


ALL PATTERNS CHECKED 


02622 


34 


2612 


4410 


■x 


Jp*TFo65 - 


NO CONTINUE 


02623 

1 


55 


2563 


1141 

4442 

1113 

4144 

1115 


■ 1 « 

TF07 

M 

■i 


I JP*TFQ6 • 

PR06»SCoTT*30ApL64 
REMARK*ERROR P I SPLAY » FUNCT, 
REMARK*CORRECT PATTERN IN *0 

REMARKMNCORRICT PATTERN JN 


EXIT 

CODE IN C RE<5* 
AL 


02624 


00 


0000 


1446 


TF07 f 


0* 


COMPARE MASK Y + B 07 


02625 


70 


0060 


1147 




ENTALK*60 ' 


SET TYPEOUT BUFFER 


02626 


44 


2222 


4420 




STRAL*BUFF1 


TO CODES FOR 07 


02627 


70 


0067 


1421 




ENTALK*67 




02630 


44 


2223 


4122 




STRAL*BUFF2 1 


SET UP 


02631 


12 


2641 


4123 




ENTAL*TF072?9 


02632 


44 


2037 


. 1124 




STRAL*TFX ' 


ERROR DISPLAY 



) ' ' • ^ ) ) 






•t*jrn* »• 
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02633 

02634 

02635 

02636 

02637 
02640 
0264* 

02642 

02643 

02644 

02645 

02646 

02647 
02650 
0265* 

02652 

02653 

02654 

02655 

02656 

02657 
02660 
02661 
02662 

02663 

02664 

02665 

02666 



02667 

02670 

0267* 

02672 



( 



44 


2666 


*125 


* <5 


76 


2302 


1126 




36 


0000 


H27 


; •. - 


*0 


2144 


1130- 


; " - 7j 


70 


pool 


1131 


V • ••• ’ '‘'J 


44 


2307 


1132 


•/ ’ : « ! i ’ 


07 


2307 


1133 


- ; vS. 


6* 


2651 


■ 1134 


*3 • 


*0 


2307 


1135: 


Y CwTt 


76 


*742 


1136 


■ 


12 


2666 


1137 


■ . • / ■ ’’ x' 


44 


2641 


1140 


; ; • ■ :'V*. 


44 


2652 


U41 • 




55 


2624 


11.42 


• ... • : '• 


50 


1*601 


1143 


TF07I* 


07 


2307 


U44 


67 


2643 


*145 


•. , 


56 


2306 


1146 




34 


2657 


1147 


i 1 


34 


2645 


1150 




44 


2307 


iisi 




12 


2641 


1152 




71 


7776 


1153 




44 


2641 


1154 


t 


44 


2652 


1155 


- 


12 


2307 


1156 


i 1 


34 


2641 


1157 




00 


QOOO 


1160 

1161 

1162 

1163 

1164 


TELM 

TF10 


00 


QOOO 


1165 


TF10 


70 


0061 


1166 




44 


2222 


1167 




70 


0060 


1170 





W * "\ r 

stral*t 

R JP*TFSH2 ! • i ,' •' 

ENTBK+0 

ENT AU* TPAT^f ; -v’ ■ 

entalk 

STRALtTpCOJ-J'g^f^.; 

e-vir a I l*Tc>rtT 




STRALfTFOmtx 

STRAL*TFd|f 

LSHAL*1 M$ 
C.M5KP*! 




JPMSR«Tf072\|^»|“: 



•;* . 
■ if 

J 



1 9‘i? 



PAG- 



J 

019 



Jp*L0K+2 

JptTF072t'8 ?&$$&¥'’ ' 
STRAL*TSCOT’^:fl 
ENTAU*TF072^2 
A00ALK*7776 ; . 

STRAL*TFQ7??2 y; . 

STRAL*TF074 

EnTAL»TSCOT v > f '. , . 
jp*tfo 72-2 i 
0* . r; 
PR0G*CASEY*3QAPL64 
REMARK*ERROR PISPLAY» FUNC7, 

remark*correcT pattern in al 
REMARK*ING0RRECT PATTERN in 

0* 

ENTALK*6l 
5TRAL*BUFF1 
EnTALK*60 , 



SAVE ORIS FUNC 
SET UP SHIFT 
CUR B 

MASK TO AU 
SET AL TO 000001 
SAVE AL 
IS AL CORRECT 
YES CONTINUE 

CORRECT TO AU 
ERROR DISPLAY 
SET AL TO ORIS 
RESTORE FUNC 
RESTORE FUNC 
EXIT 

SHIFT PATTERN 
TEST FUNC 

ERROR JUMP 

ALL PATTERNS CHECKED 

NO CONTINUE 

YES EXIT 

SAVE AL 

FUNC TO AL 

ADDRESS -1 

RESET FUNC 

RESET FUNC 
RESTORE AL 
CONTINUE CHECK 



CODE IN C REG. 

AU 

ENTER AU *0 
SET TYPEOUT BUFFER 
TO CODES FOR *0 






‘IF 






SHEET 4.5 T REVISION 
SB -10163 



02573 


44 


3223 


1171 




STRAL*BuFR2,. 


02674 


12 


3676 , 


1172 


■ r «v 

■ fi 




02675 


44 


3037 


1173 


. • "M 


STRAL*TF®Sf;§7 


02676 


10 


3144 


•1174 




• •ENTAU*Tp*Tj‘#;|s ; ' ; -- 


02677 


12 


3145 


1175 


■>.' . • % 


; ental*tr^|i;3’; ; . 


02700 


06 


3256 


U76 


;.'k ■ . ; 


.cmsk.*tco1';4.4#W’-<' 


02701 


63 


3736 . 


1177 


VO 


' JpNOTfTFM0®^A 


02702 


10 


3146 , 


1200 „ 






02703 


12 


3147 V 


1.301 V 


'■:■■■• ,V: '*■ .*v . 


, ;; E^TALTTRlp^H^/?.; 


02704 


06 


3256 


■1202 •" 


* '7 Vv'm ; . ' 
J '*\ f .; . 


• ’ ’ ft 

'• • 1 * • ^ "i. * A f? * ' 


102705 


63 


3736 * 


1203 '' : 


• , ‘ V 


jJFNOT^TW^lKaf 


02706 


10 


3150 


1204 


• . 


■ ' iNTAy-ATp^tltf 


02707 


12 


3151 


1205 r 


•’ . ' yf, 




02710 


06 


3256 1 


1 1206 


V 3 . ■ V 


v: CMSK*TCol-,v^ f fe 


02711 


63 


3736 


1207 




' ■ ^PN0T*TFl00:3f^ 


02712 

02713 


10 

12 


3152 

2153 


1210 

1211 


t . 




02714 


06 


3256 


1212 




CMSK*TCp0^3|y 


02715 


63 


3736 


1213 




'jpNOT*TFlb#®# 


02716 


10 


3154 


1214 


* ; - 


EnT AU*TPAT4- v‘^i' V 


02717 


12 


2155 


1215 


1 y 


, ENTAL*TPAT4H v 


02720 


06 


3256 


1216 






02721 


63 


3736 


1217 




JPNOT*TF100 : 3 


02722 


10 


2156 


1220 




ENTAU*TPAT5 7 


02723 


12 


2157 


1221 




ENTAL*TpAT5H 


02724 


06 


2256 


1222 




CMSK*TCOi 


02725 


63 


3736 


1223 




JPNOWFlQO 


,02726 


10 


2160 


1224 




ENTAU*TpAT6 • 


02727 


12 


2161 


1225 


I 


ENTAL*TPAT6+1 


02730 


06 


3256 


1226 




CMSKTTCOl V 


02731 


63 


2736 


1227 




JpNOT*TFlOO 


02732 


10 


3162 


1230 




ENTAU*TpAT7 k ^ 


02733 


12 


3163 


1231 




ENTAL*TPAT74^ 


02734 


06 


3256 


1232 




CMSK*TC0l : v 


02735 


61 


2737 


1233 


i 


, JPEQ*TFlOOtt \ 


02736 


76 


1742 


1234 


TFlOo 


p jp+tfdis 



! ) v ' 7 ) 
i r*A»H *Pf >^W»n« * 



PAG 



020 



SET UP. 

ERROR DISPLAY 
SET AU ALL ONfS 
SET AL ALL ONES 
AU EQUAL AL 
ERROR JUMP 
CUR AU 
CLR AU 

AU EQUALS AL 

’ ERROR jump 
SET AU 252525 
SET AL 252525 
AU EQUAL AL 
ERROR JUMP 
SET AU 525252 
SET AL 525252 
AU EQUAL AL 

ERROR JUMP 
SET AU 770000 
SET AL 770000 
AU EQUAL AL 
ERROR JUMP 
SET AU 007777 
SET AL 007777 
AU EQUAL AL 

ERROR JUMP 
SET AU 707070 
SET AL 707070 
AU EQUAL AL 
ERROR JUMP 
SET AU 070707 
SET AL 070707 
AU EQUAL AL 

YES EXIT 

ERROR DISPLAY 0* ! 
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( 

V 



02737 



02740 

02741 

02742 

02743 

02744 

02745 

02746 

02747 

02750 

02751 

02752 

02753 

02754 

02755 

02756 

02757 

02760 

02761 

02762 

02763 

02764 

02765 

02766 

02767 
027>0 

02771 

02772 

02773 

02774 

02775 

02776 



, ( . ( 

'' PAGT 021 



55 §667 


1235 


; 


. JJP*TF10 


EXIT 




1236 


• . JFXP 


PR00*CASEY?!3p^PL64 






1237 


■V . ’ ' -V i 


REMARK*ERR0p5^ISPLAY» FUNCT. 


CODE IN C REG» 




1240 


• j; ' . 

'v /•' ' " V ; ‘ 


remark»oorpiIY> pattern IN a U 






1241 , 


V- 


REMARK* I NCORpEpt-pATTERN IN 


AU 


00 OQOQ 


1242 




o* 


ENTER AU ♦ B 


70 0061 


1243 


•• ' J ‘ 


■ enTau*6®^Eh:' •• , 


SET TYPEOUT BUFFER 


44 §222 


1244 


J- ;/. V- 




TQ CODES FOR 11 


70 0061 


1245 


. ^ " V* 






44 §223 


• 1246 


=• .7 . '$• 


; STPAL*BUFp|\^^^- 




12 2750 


1247 


- '7 : 


■ ENTAL*U0K-f^S^W ; 'V' ’■ 


. SET UP 


44 2037 


/ 1250\ 


. . ' vV 

; . - :f 


•V ; 

• ' -,V •• 


ERROR DISPLAY 


32 2166 


1251 , 


, "• ' ' . 


\ ENTB*TPAB$^fM^' '' ' 


PLUS ONE TO. 8 


11 2144 


125? 


/ • • : . 


/ ENTAU0*TPAtig^;.^ 


SET AU TO ALL ONES 


12 2145 


1253 


■ *, ‘ ‘i ■ ' •/ 


' . iNTAL*TPATt^^i^ ’ 


5ET AL TO ALL ONES 


06 §256 


$254 






AU EQUAL AL 


63 $012 


1255 


' *• . •; . ' \ 


JpNOT^TFllM^ll!#^ ' 


ERROR JUMP 


32 2167 


1256 




ENTB*TPABltiV>^:^' : 


MINUS ONE TO B 


11 2146 


1257 




ent aub* tp ATI j&u. • . 


SET AU TO ALL ONES 


12 2144 


1260 




ENTAL*Tp^n ; 5-|^.:V. 


SET AL TO ALL ONES 


06 2256 


1261 


■ t 


■ • t 

cmsk*tco$M^;;k;v-.:' 


AU EQUAL AL 


63 3012 


1262 


■f 


JpNOT*TFll0M^-'V- 


ERROR JUMP 


32 2243 


1263 




entb*tpas4- 5 »-‘'- 


PLUS TWO TO B 


11 2144 


1264 




entaub*tpat 


set au to zeros 


12 §147 


1265 


* 


ENTAL*TpATlti 


SET AL TO ZEROS 


06 2256 


1266 




CM5K*TCo1 , • 


AU EQUAL AL 


63 3012 


1267 




JPNOT*TF110 1 


ERROR JUMP 


32 §146 


1270 


■t. 


' ENTB*TPATl' : :i,. ' V 


CLR B 


11 2150 


1271 




EnTAUB*TPAT2 r.. 


SET AU TO 252525 


12 §151 


1272 




ENTAL*TPAT2*1 


SET AL TO 252525 


06 2256 


1273 




cm5k*tco1:'^-; 


AU EZUAL AL 


63 3012 


1274 




JpN0T*TFil0 


ERROR JUMP 


32 2244 


1275 




ENTB*TPaS 5 ; >' v '>. 


PLUS 4 TO B 


11 2144 


1276 




entaub*tpat ; :, , ; : 


SET AU TO 252525 


12 2151 


1277 


•« 


ENTAL*TpAT2ti 


SET AL TO 252525 


06 2256 


1300 


* 


CMSK*TCoi; 3 : 

V " ' 


AU EQUAL AL 
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1 02777 

| 03000 

03001 

03002 

03003 
Q30Q4 

03005 

03006 

03007 

03010 

03011 

03012 
03013 



03014 

03015 

03016 

03017 

03020 

03021 

03022 

03023 

03024 

03025 

03026 

03027 

03030 

03031 

03032 

03033 

03034 

03035 

03036 

03037 



) 



63 ^012 
32 3245 

11 2144 

12 2152 
06 2256 
63 3012 

32 2246 
11 2162 
12 2161 
06 2256 
61 3013 
76 1742 
55 2740 



00 QOOQ 
70 0061 
44 2222 
70 0062 
44 2223 

10 3023 
46 2037 
12 2144 
10 2145 
02 2256 
63 3063 
12 2146 
10 2147 

02 2147 
63 3063 
12 2150 
10 2151 
02 2151 
63 3063 
12 2152 



1301 

1302 



1305 



1307 

1310 

1311 

1312 



1314 

; 1315 



V- *■)*;. 

y V % 

. ; /V 

• • 

TFllp 



1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1340 

1341 

1342 

1343 

1344 

1345 






TF12 



. 4 ; | ,'v^ 1 ■ O 

f :&&%$■'.: 

' -i. 

^NTBtTPA^SI'E. p .... : 

■ :.y 

RJP*TFDl§i^:r^:-:.'- . 

: ; ,PR08t.CA^|t*3^FW - 

V ; ■ - '• • ■ •: • 

REMARK.*ej¥R9f! PjSPLAY* 
REMARK*CQ^RE?T, P^tTERN IN 
. remark* ^PATT eRN 
°* ' • 
EMTAU*6lJm^:-V ■ 

STR AL*BUF:Fl'%/*!^ ■ 

• ENTALK*62’^fi:^;.'. , 

.STRAU*Bu|F^-^^ : ; 

ENTAU*L0Kf2 : ^f ' 
strau*tfx > 

ENTAL*Tp AT 
ENTAU*TpATtt 

cmal*tco1 

JPNOT*TF120 
ENTAL*TpATl 

ENTAH*TP^tlH 

• -'ll ‘ 

CMAL*TPAT1*1 ^.'V' 
jpnot*tfi?Q • 

ENTAL*TpAT2 
ENTAU*TPAT2H 
CmAL*TPAT2+1 

JPN0T*TF120 :> 

ENTAL+TPAT3 



PAG^ 022 



ERROR JUMP 
PLUS 7 TO B 
-SET AU TO 525252 
SET AL TO 525252 
AU EQUAL TO AL 
ERROR JUMP 

MINUS 2 TO B 
SET AU TO 707070 
SET AL TO 707070 
AU EQUAL AL 
YES EXIT 

error display 

EXIT 



* CODE IN. C REGt 

Ay 

IN AL =. 

ENTER AL 

SET TYPEOUT BUFFER 
TO CODES FOR 12 



SET UP 

ERROR DISPLAY 
SET AL TO ALL ONES 
SET AU TO ALL ONES 
IS AL CORRECT 
ERROR JUMP 
CLR AL 
CLR AU 

IS AL CORRECT 
ERROR JUMP 
SET AL TO 252525 
SET AU TO 252525 
IS AL CORRECT 
ERROR JUMP 
SET AL TO 525252 



tP 



) 






SHEET %: 6 &~ REVISION 
SB-10163 




r 



c 



\ 






03040 


10 


2153 


.. ■ 1346 


!V 


03041 


02 


§153 


1347 


‘ ii 


' 03042 


63 


3063 


1350 


’ * ■ '$v' 

i 


03043 


12 


§154 


1351 


‘ ; ’ ‘ -1; • 


03044 


10 


§155 


1352 


’ - * . 


03P45 


02 


§155 


1353 • 


t' V* 


03046 


63 


3063 


1354 




03047 


12 


§156 


1355 v 


■ . ■'*%• 
* ■ • • j‘ ■ * • . 


Q3050 


10 


§157 


1356 




03051 


02 


§157 


1357 


V v • / " ^ 

• ‘ *■ . . i.*’ V' 4 * •' 


03052 


63 


3063 


1360 




0.3053 


12 


§160 


1361 


.... ' ' >- •■.•T. v : »• > . 


03054 


10 


§161 


1362 . 




03055 


02 


§161 


1363 • • 




03056 


63 


3063 


1364 


/ . V- ■ r - 


03057 


12 


§162 


1365 


'• ■ "A . ;• 


03060 


10 


§163 


1366 




03061 


02 


§163 


1367 




03062 


61 


3064 


1370 




03063 


76 


1742 


1371 


: mao 


03064 


55 


3014 


1372 

1373 

1374 

1375 

1376 


TF13 

‘•t 

V s 

s t* 


03065 


00 


0000 


1377 


TF13 


03066 


70 


0061 


1400. 




03067 


44 


§222 


1401 




03070 


70 


0063 


1402 




03071 


44 


§223 


1403 




03072 


10 


3075 


1404 




03073 


46 


§037 


1405 


, 


03074 


32 


§166 


1406 


-v 


03075 


13 


§144 


1407 




03076 


10 


§144 


1410 




03077 


02 


§144 


1411 





ENTAU!>Tp4T3^^ 

CMAL*TPAt3n % 

jRN0T*TfUP.';a4^^>:.s 

■ ENTAL4iTR4T^^^^:- • 1 
• EnTAU-ATPAT • 




mm m ± k T *. , 0 ■• * ~* V'Vi *• f 

W®m* ■' 



ent ; 

f CMAL*TPAT?t| 
4pN0T*TFi2py 

■ ENTAL*TPATP3^ ; %, . 

. ENTAU*TpAt6t}|p^f 

ENTAt>A'Tp4f^RWpl'I 

EMTAU*TpATT+tel^'V'-: f 

CMALnPAtmf|^lV ; 

, .JPEQ*TFl«0.tI^H^.‘- 

. Rjp*TFD^^ ; p!^^ ; 

I JP*TFl2 ; ' .'' ’i ' 

PROG*CAsET | F30APi-64 
REMARK*ERRQR PISPUY* 



SET AU TO 525252 
IS AU CORRECT 
ERROR JUMP 
SET AL TO 770000 
SET AU TO 770p00 
IS AU CORRECT 
ERROR JUMP 

SET AU TO 0Q7777 
SET AU TO 007777 
ISAL CORRECT 
ERROR JUMP 
SET AU TO 707070 
SET AU TO 707070 
IS AU CORRECT 
* ERROR JUMP . 

.v . • 

SET AU TO 070707 
SET AU TO 070707 
IS AU CORRECT 
YES EXIT 
ERROR DISPUAY 
EXIT 

funct, CODE IN C REG« 



remark*co6rect. pattern IN AU 

REMARK*lNCORREpT PATTERN 4 n AU 
0* 

ENTAUK*6l 
STRAU»BUFF1 ; 

ENTAUK*63 
STRAU^BUFF? 

ENTAU*U0Kt3- 



t i: ■’ ■} : 



ENTER AU + 8 13 
SET TYPEOUT BUFFER 
TO CODES FOR 13 



SET UP 



strau*tfX: : 

ENTBtTPABl 
ENTAUB*TPAI5f0: : 
ENTAU*TpAT 
CmAU*TPAT' 



rvir,. ;> / 



ERROR DISpUAY 
PUUS ONE TO B 
SET AU TO AUU ONES 
SET AU TO AUU ONES 
IS AU CORRECT 



PAG-- 023 



Cfc 
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I 



03100 

03101 

03102 

03103 

03104 

03105 
. 03106 

03107 

03110 

03U1 

0,3112 

03113 

03114 

03115 

03116 
| 03117 

03120 

03121 

03122 

03123 

03124 
' 03125 

S 03126 

f 03127 

03130 

03131 

03132 
1 03133 

I 03134 

i ’ 03135 

03136 
; 03137 

i . 






63 


3136 


14*2 ; • 


, v , i • 

>4 




ERROR JUMP 


32 


2167 


1413 A 






MINUS ONE TO B 


13 


2146 


1414 






SET At TO ALL ONES 


10 


2144 


■ 1415 


• % 


: EMT^U*TPAl^#"r ;v : i 


SET AU TO ALL ONES 


02 £144 - 


1416 


. . -K / 




ISAL CORRECT 


63 


3136 


1417 


V %i : .. 


• l^pNOT^TFl^jMfeV- * 


ERROR JUMP 


32 


£243 


1420 


.:\.y .• 




PLUS TWO TO B 


13 


2144 


'■•■■■1421 ;■ 


. . 

• ' . V 




CLR AL 


l.o 


2147 


■ '•'■1422 f'A 


: ^ C • 




CLR AU . 

. i 


63 


3136 


1423 


'S- . - 

J ’ *:.• .>*>**& ' 

> • • . ■” 


... * •: . ■ 

•/ ^pALNZfTFll®^:, ;• 


ERROR JUMP 


32 


2146 


- 1424 . V. 


• 


• iNTB^TPAWlH^v^V'.'' ' . 


CLP B 


13 2150 


1425 : 


,V Ay ' 


•v- ■ ■ 


SfcT AL TO 252525 


10 


2151 


1426 A, 


. • “* ' » 

. * /' v * * . 




SET All TO 252525 


02 


2151 


•, ‘1427 v 


• ■’ : 4 




IS AL CORRECT 


63 


3136 


1430 • 




- .apN0T*TFl^|^^:?:' - r , 


ERROR JUMP 


32 


2244 


1431 


■ . * ' y ,? 


■ EWTB»TPA&5^^t^. M .-- 


PLUS 4 TO B 


13 21«f4 


■ : 1432 \ 




\ V 


SET AL TO 252525 

\ 


10 


2151 


1433 


‘ ' r ..- •■■■ : . 


' ENTAU*TpAT2l||iM : - ■ ' 


SET AU TO 252525 


02 


2151 


1434 


/ * * if . - 


; ; s OMAL»TPAmiM^T ^., 


IS AL CORRECT 


63 


3136 


1435 


>' . ... '*■ 


JPN0T*TF130;\^i;i;,vVr : . 


ERROR JUMP 


32 


2245 


1436 


[ •• 1 


. ENTB»TPAS6 ' A 


PLUS 7 TO B 


13 


2144 


1437 




ENTALB*TPATi';^^' : ' <: ‘ 


SET AL TO 525252 


10 


2152 


1440 


A 


; ■ ENT AU*Tp Af 3 • ■ % ■> > 


SET AU TO 525252 


02 


2152 


1441 


% 


chal^tpats 


IS AL CORRECT 


63 


3136 


1442 


*■ 


.apN0T*tFi30K^.;r^.v 


ERROR JUMP 


32 


2246 


1443, 


■ ‘s 


E N T B * T P A 5 1 . > :' > ■ . ' ■• . V; ' : 4 


MINUS 2 TO B 


13 


2162 


1444 




entaub*tratj:C;;.:.v-: 


SET AL TO 707070 


10 


2160 


1445 


t; 


ENTAU«TpAT63r :: v 


SET AU TO 707070 


02 


2160 


1446 


*\ 


cmau*tpat6;'^:^ :n. a - 


IS AL CORRECT 


61 


3137 


1447 


T 


JPEO*TFl30tl t-'A- i • ' . 


YES EXIT 


76 


1742 


1450 


TF130 


RJP*TFDIS 


ERROR DISPLAY 


55 


3065 


1451 


•- 


IJP*TF13 ' 


EXIT 






1452 


TF14; 


PR0GfSCQTT^30APL64 








i 1453 




remark*er'ROr ujspt.Ay» funct 9 


CODE IN C REG. 






1454 




remark*corr.ect pattern IN au 








1455 




REMARK*|NCORptqT PATTERN JN At 



V 



PAG- 024 



tP 












, £9T0I-9S 
NOXSXAHH 1HHHS 



pAGrr 025 



'H 



03140 


00 


QOqO 


1456 


TP 14“ 


03141 


70 


0061 


1457 , 




03142 


44 


2222 


1460 


vw 

? 

-vs ' • 


03143 


70 


0064 


. 1461 . 


Xf V;V- 


03144 


44 


§223 


1462 


• 


03145 


12 


3151 


1463 


;% ■ 


03146 


44 


§037 


• 1464 T H 


. . -■#, •' 
■ . . . ' .'V ■ 


03147 


12 


gl52 


1466; . ;■ 


, 


03150 


10 


§146 


1466 


\ v h ■ 


03151 


14 


8150 


1467 


' 5 • 

‘'.i * ’ 


03152 


61 


3155 


: 1470 


/ V : . 


r> . 

03153 


76 


1742 ; 




: 7Fi42;.' 


03154 


55 


3140 


1472 s. ' '• 




03155 


32 


2261 


" 1473 


• ■ 


03156 


73 


3163 


1474 




03157 


10 


2261 


1475 


V • 


03160 


02 


2261 


' 1476 ; 




03161 


63 


3153 


1477 




03162 


55 


3140 


1500 




03163 


14 


2166 


iBoi 


' TF445 


03164 


34 


3156 


1502 

1503 

1504 

1505 

1506 


•-> ■ 

TF15 

*1 


03165 


00 


QOOO 


1507 


TF15 


03166 


70 


0061 


1510 


■v 


03167 


44 


8222 


1511 




03170 


70 


0065 


1512 




03171 


44 


8223 


1513 


* 


03172 


12 


3176 


1514 




03173 


44 


2037 


1515 




03174 


36 


0001 


1516 


u 


03175 


70 


00Q1 


1517 




03176 


15 


2165 


1520 


;; 


03177 


10 


2243 


1521 


i 



0* 

ENTAUK’^6l^ 1 > i .v : 




ADD AL 14 

SET TYPEOUT BUFFER 
-TO CODES FOR 14 



7 EMTAir^ T F^!fc,. : ^4V' 

■ « E NT AL * T P f : : l ’ ” 



5 EMTAU«TRA.pfg|^E^ /• 



w- vS’j ’>: w, 

v.; l 'S. ‘ 



RJP*TFDIS, 

ljP*TFl4 




SET UP 

ERROR DISPLAY 
SET AL TO 525E52 _ 

CORRECT TO AU_ - .i 

TEST func 
CHECK OK 






. CMAL»TC05|^^ v ^|m^v . 

, UPNOTATFl^lf!^^,;: 

: ^ p * TFl4 ^iiii® : 

' • ADDAL*TpABtfv:%;: ; ^ - ' 
Jp*TFl4*t3:^T#'-S ;■ ■ 

PR0G*SC0TT*3QAPL64 
remark^erpoR PjspLay# funct. 
remark*correct pattern IN AU 
REMARK*lNCORRlCT PATTERN IN 

0* ■V,.v\-- * 

ENTALK»6l ; ‘ s 

■«-' v V - . » • . 

STRAL*BUFp‘ ; 

ENTALK*65 ! r 

stral*buff2.v;- < 

ENTAL*L0Kt4:‘ V/ ‘ i - 

stral*tfx 
entbk*i ■*: 

ENTALK*1 •' :• ; - 
addai_b*tpabi«?V 

ENTAU*TPAS4, , , 



ERROR DISPLAY 
ERROR EXIT- 
SET B TO 377777 
BJUMP TO ADO 
CORRECT TO AU 
• IS AL CORRECT 
ERROR JUMP 
EXIT 

TEST FUNC 
CONTINUE TEST 

CODE IN C REG. 



AL 



y.r- 



ADD AL TO Y+B 15 
SET TYPEOUT BUFFER 

TO CODES FOR 15 



SET UP 

ERROR DISPLAY 
SET B TO 1 
SET AL TO 000001 
TEST FUNC 

CORRECT TO AU 



do 



*m*#w&*t <,-r- 
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PAG" 026 




03200 


02 2243 


1622 


f 

'• j)' 1 


, cmalatpa&^X..;' ; 


15 AL CORRECT 


03201 


61 32Q4 


1523 


" ■ / ti 


■ vJPEQ*LOK^|;:#|S^ . 


CHECK OK 


03202 


76 1742 


1524 : 


Iff 162 


RJP»TFPl^:^V i: , ; . 


ERROR DISPLAY 


03203 


55 3165 


1525 






ERROR EXIT 


03204 


36 0002 


1526 


‘ - ’ X ■ 


;.entbk«2 ' ' 


SET B TO 2 


03205 


15 2241 


1527 


■ »■ ¥ 


ApDAI-B^TF^I^^- 


TEST FUNC 


03206 


10 2244 


1530 . 




ENTAU^TpASfjipavvV- 


CORRECT TO AU , 


03207 


02 2244 


1531 


• ■. -iy. ‘ 


CMAi^TPASSf •/ 


|S AL' CORRECT 


03210 


63 3202 


1932 




• 4PNQT*TFl$$&SXX' ■. . 


ERROR JUMP 


03211 


36 0003 


1533 


■* ; 


ENTBK*3 


SET B TO 3 


03212 


15 2241 


1634 


; . ' ' * . •' 


iDDALB«TPA§W''^li>- 


TEST func 


03213 


10 2237 


1635 


V, 


ENTAM*TpA%g^fif ; 


CORRECT TO AU 


03214 


02 2237 


1536 . , 


■ 




IS AL CORRECT 


Q3215 


63 3202 


1537 


‘ : • : 


: JpNOT*TFlf " • 


ERROR JUMP 


03216 


55 3165 


1540 


V* . ' 


■ IJP*TF15 


EXIT 






1641 

1542 


TF15 


PR0B*SCoTT|3pApL64 

REMARK’ •ERt^fte^AY» FpNCT* 


CODE IN CREG. 






1543 




REMARK *CORRECT .PATTERN IN AU 








1544 




REMARK+IN^QpR|CT PATTERN IN 


AL 


, 03217 


00 0000 


1545 


TF16 


0* •' -x -":K- 


SUBT AL MINUS Y 16 


; 03220 


70 0061 


1546 


•? 


ENTAtK*6 


SET TYPEOUT BUFFER 


J 

i 03221 


44 2222 


1547 


% 


5TRAL*BUFFlX.X 


TO CODES FOR 16 


} 03222 


70 0066 


1550 


■ u 


ENTALK*66 ' V* ■ 




j 03223 


44 2223 


1551 


* 


STRAi-^BuFf?. '*11 




1 03224 


12 3230 


1552 




ENTAL*L0Kt4' X ; 


SET Up 


r 03225 


44 2037 


1553 




STRAL*TFX: • V. 


ERROR DISPLAY 


03226 


70 0001 


1554 


:• 


ENTALK*t 


SET AL TO OOOQOl 


03227 


10 2146 


1555 


b 


ENTAU*TPAT1 


CLR AU 


03230 


16 2166 


1556 




SUBAL#TpABl ; 


TEST FUNC 


03231 


61 3234 


1557 




JpALZ*L0Kt3 


CHECK OK 


1 03232 


76 1742 


1560 


TF16 ? 


RJP*TFDIS 


ERROR DISPLAY 


03233 


55 3217 


1561 




IJP*TF16 


ERROR EXIT 


03234 


16 2166 


1562 




SUBAL*TpAB| 


TEST FUNC 


03235 


10 2254 


1563 




ENTAU*TCO 


CORRECT TO AU 


03236 


02 2254 


1664 




cmal*tco 


IS AL CORRECT 


! 03237 


63 3232 


1565 




JPN0T*TF162 . 


ERROR JUMP 


03240 


12 2263 


1566 




ENTAL*TC04tt 


SET AL TO 200000 





! ’ ) 
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SB-10163 




r ' 



c ' 



PAGf 027 



yi Y*’ ‘-’.'V’ ; 



03241 


16 


2257 


1567 


l* 


03242 


10 


2166 


1570 




03243 


02 


2166 


1571 • 


» "J 


03244 


63 


5232 


1572 




03245 


12 


2263 


1573 




03246 


16 


2175 


1574 . 


’!(■ 1 
■ ' V 


03247 


IP 


2270 


' '1575 




03250 


02 


2270 


1576 


: ' v 


03251 


63 


3232 


1577 


: s ; • ; ** . 


03252 

V 

f 


55 3217 


160Q 


' i • v : • . 




< ’ i \ 


! 1601 ' V 

' 1502 vv 

1603 
>-■ 1604 ' 


VTFI^- 

8 \ 

4 • , - 1 * ' 1 


03253 


00 


0000 


1605 : 


iw-' 


Q3254 


70 


0061 


1606 


>Vj_ •• 


03255 


44 


2222 


1607 




03256 


70 


0067 


1610 




03257 


44 


2223 


1611 


' if . ‘ j 


03260 


12 


3265 


1612 


i *.j 


03261 


44 


2037 


1613 




03262 


10 


2146 


1614 




03263 


70 


Q001 


1615 


% 


03264 


36 


0011 


1616 




03265 


17 


2155 


1617 


V 


03266 


61 


3271 


1620 




03267 


76 


1742 


1621 


TF17? 


03270 


55 


3253 


1622 


• 


03271 


12 


2263 


1623 




03272 


36 


0002 


16^4 


i 


03273 


17 


2162. 


1625 




03274 


10 


2254 


1626 




03275 


02 


2254 


1627 




03276 


63 


3267 


1630 


i 


03277 


55 


3253 


1631 

1632 


TF20 



' SUBALfTCPl^f^-.v. 
ENTAU*TPAftpSv^U •• 
CMAU*TPA0ty^S|>' 

v. • 

fe/’ • • .’ 

:‘ ' t ?; 1 •'. i r.' ■ :.ir. ‘ <*• I df. *'!''••• , ,. 




*wr» it * p » 

PRO0»scoTT,»3P$PU* 

REHARK*ER0PR ^,|$ptAy# FUNCT * 

remarkFc0RRECT: : pattern in au 

REMARK* I NCOR^gX; PATTERN IN A L 

o* " ■ • • 



STRAt*BUPP| 

E NT A LK * 6 , p . ^ , 

STRALfBUFpRv ■ 

ENTAL*TFV7a‘sr;:^\ 

STR A L ♦ T F ■.•'::■% t - v : ■ 

ENTAU*TpATT(f/^ : '' ; ;- 

ENTALK*lld;^ : '^ : '; 

EnTBK*U 
SUBALB*TPABi-H 
JpALZ*L0K+3 • . 

RJP*TFDIS - 

IJP*TFl7 , 

ENTAL*TC04tl 
ENTBK+2 

SUBALB*TPA0^2 
EnTAU*TC0 
CmAL*TC 0 f- 

JpNOT*TFl?r 
IJP*TF17 

PR0G»SC0TT*3PAPE64 



TEST FUNC 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET AL TO 200000 
TEST FUNC 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
EXIT 



CODE IN C REG' 



SUBT Y+B FROM AL 17 
SET TVPEOUT BUFFER 
TO COOES FOR 17 



SET Up 

ERROR DISPLAY 
CUR AU 

SET AL TO 000001 
SET B TO II 
TEST FUNC 
CHECK OK 
ERROR DISPLAY 
ERROR EXIT 
SET AL TO 200000 
SET B TO 2 

TEST FUNC 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
EXIT 






tP 
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SB-10163 



: 






! 

\ 

i 

I 

\ 

( 









” 777 - 7 ' 7 ’ 









1633 


r 


REMARK*EW^'ftl'5PLAY» 






9 


1634 


:• M- • 


REMARK^TH|'7S0i OF ADD 








1635 


’* • ' & ■ 


REMARKnHEllN.flR.E -Au- j 


03300 


00 


0000 


1636 


. ■ ff&P: • 


0* : 

• ',ENTALK*6flS«;i^^ . 


03301 


70 


0062 


1637 


'• -7 ; iv: ... 


03302 


44 


3222 


1640 


7 ' 




03303 


70 


0060 


1641 


• ; J . •. ;>.•* 


ENTALK*6^^^^-7 v7 

. STR ^* 8 ! ®^7' ' 


03304 


44 


3223 • 


, 1642 ; 


*.• • •’ ; $ 

• : : ' ? ' 


03305 


12 


3311 


'• 1643 


' {• 7 - 7 : 


ENTAL»Lpi|^ft^fV; V 


03306 


44 


3037 


1644 ‘ 


.v ; , y .... -‘w 


•',7- 

.7;.7 -Eh 7AU*TC‘0M%3»^: 


03307 


10 


2255 


1645 




03310 


12 


3255 7 


1646 


■ 7 7 V l 


''7 ;-EnTAL*TC 2J^^7-7 ■ 


03311 


20 


2146 


1647 • 


•:.7 -1 * 


7 < A D D A ♦ T P AT - 


03312 


62 


3314 


1650 




7 •iv'^PAMN 2 *f " 


03313 


61 


3316 


1651 : 


S '7 ‘ •- . J : 7 "• 


. 7 • JPALZ*t 0^3^^111,7 ’• 


03314 


76 


1742 


1652 


=TF202 


77 RJP»TFDljp|^^ 7 


03315 


55 


3300 


.1653 




. I-JP7JF20 


03316 


10 


2263 


1654 




- . ENTAU*TC'OMl : t%^^ • . 


03317 


20 


2254 


1655 


, ’ *7 


ADDA*TCo7777pf7i77 ; 7’ 


03320 


02 


3255 


1656 






03321 


63 


3314 


1657 


> 


JpNOT*TF202;:7k7'H. ; 


03322 


50 


4722 


1660 


■y 


LSHA*22 k.7;;k;7. v 


03323 


02 


3257 


1661 


*♦ 


CMAUTC0lfi: : 7f7:- 


03324 


61 


3327 


1662 


: 


JPEQ*L0Kt3 

i ;}> • v ’*; ■ 


03325 


50 


*♦722 


1663 


TF204 


. LSHA*e2 -k'h: 


03326 


34 


3314 


1664 




JP*TF202 vV 


03327 


50 


4?22 


1665 




LSHA*22 - 7777-; 


03330 


20 


2256 


1666 




adda*tcqi . *. W ■' 


03331 


02 


2255 


1667 




CMAL*TC0il'-77. ; 7 : - 


03332 


63 


3314 


1670 




JPN0T*TF2p2 : 7- 


03333 


50 


4722 


1671 




Lsha *22 ^7'.7;,,- 


03334 


02 


2261 


1672 


1 . 


cmal*tco 377'77;. -■ 7- 


03335 


63 


3325 


1673 


< 


JPN0T*TF204 7 


03336 


55 


3300 


1674 




IJPKTF20 77:- ■ 








1675 


TF21 


PROG*SCOTT730APL64 
REMARK*ERBQR PjspLay» 








1676 


'} 




PAGF 028 



FUHCT 9 CODE IN C REG* 
ft IS CONTAINED IN’ 

ND AL REGISTERS 

ADD A TO Y AND Til 20 
SET TYPEOUT BUFFER 
TO CODES FOR 20 



SET UP 

ERROR DISPLAY 
SlET AU TO 777777 
SET AL TO 777777 
A+OOOOOOOOOOOO 
ERROR JUMP 
CHECK OK 
ERROR DISPLAY 

FRRQR EXIT 
SET AU TO 200000 
A+777777777776 
IS AL CORRECT 
ERROR JUMP 
EXCHANGE REGS 
IS AU CORRECT 

CHECK OK 

! 

EXCHANGE REGS 
ERROR JUMP 
EXCHANGE REGS 
A+177777777777 
IS AL CORRECT 
ERROR JUMP 
EXCHANGE REGS 
IS AU CORRECT 

ERROR JUMP 
EXIT 



CP 



) 



FUNCT, CODE in c reg. 
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03337 

03340 

03341 
0334? 

03343 

03344 

03345 

03346 

0334* 

03350 

03351 

03352 

03353 

03354 

03355 

03356 

03357 

03360 

03361 

03362 

03363 

03364 

03365 

03366 

03367 

03370 

03371 



62 3354 
61 3356 
76 1742 
55 3337 
10 2263 

36 0004 
21 2252 
50 §100 
20 2254 
02 2255 

63 3354 
50 4722 
02 2261 

61 3355 
50 4722 
34 3354 



03372 00 QOOO 



03373 

03374 



70 0062 
44 2222 



1677 

1700 



1714 

1715 

1716 

1717 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1740 

1741 

1742 






REMARKnHE: OF THE ADD A IS CONTAINED 

REMARK*lN^f|^E I NTlBE' AM AND AL REGISTERS- 



00 QPOO 


1701 TF21 


0 * 


• .. . . ‘V v '*>4 t"i * , : 

• ; i 


70 0062 


■ 1.7.02 • : v ' 


ENTALK*62:^^.;:i'-^ 


44 2222 


,• 1703 


STRAI 




70 Q061 


• 1704 


V 'ENTAU*6l 


44 2223 


, 1705 . : t ; 


STRA 




12 3351 


1706 .1 • •/; 


•enta 


L*LOKA^^ j:: 


44 2037 


1707 VHt 


STRAI 




10 2255 


■ i7ip v ^ 


•ENT* 1 






' • '■ • • 'a'i-t ‘A. 


■ ■ ■ .... 




12 2255 


'■ 1711 ^ 


• ENTA 




36 Q011 


. . 1712 ../■ -H ; , • : V; 


' S.ntbk*! i 



TF213 



TF22 



TF22 



AD0AP*»r* r A " if «. ■< 

■ ypAUN2^TF*l^^€;f 
:UpA}.Z*L0Kf3gg^|f-;;' 

' I IjpJtF 2 1 ■ 

ENTAU*TC04*^:'^' 

ENTBK*4 ■ 

ADDAB*TCQ^^; ; i^. ' 

skPNBo*o 

AdDA*TCO v*’‘T V '(•-* " ■*' 

cmal*tcoU'v: v ~ k'.' 
JPN0T*TF213 
LSHA*22 ./r. 

CMAL^TCOV. .r : : 



ADO A WITH Y+B AND Y+l+B 
SET TYPEOUT BUFFER 
TO CODES FOR 21 



SET Up 

ERROR/DISPUAY 
SET AU^TO 777777 

SET AL TO 777777 
SET B TO II 
A+oooooooqoooo 
ERROR JUMP 
IS AL CORRECT 
ERROR DISPLAY 
ERROR EXIT 
SET AU TO 200Q00 

SET B TO 4 
A+ 177777777777 
IS BORROW GENERATED 
CORRECT SUM 
IS AL CORRECT 
ERROR JUMP 
EXCHANGE REG 
IS AU CORRECT 



21 



YES EXIT 
EXCHANGE REGS 
ERROR JUMP 



JPEQ*TF2!3*f ’ 

LsHA*22 '* 

JP*TF2l3 5 V 4 
PR06*SCOTT*30APL64 

REMARK*ERROR DISPLAY* FUNCT, CODE IN C REG. 
REMARK*THE REMAINDER oF THE SUBTRACT 
REMARK*^. CONTAINED IN AU AND AL f , 

0* c SUBT Y AND Y + l FROM A 



2o 



ENTALK*62: 1 

STRAL*BUFFlv ; 

■ •••v •: 

■ v.- 



SET TYPEOUT BUFFER 
TO CODES FOR 22 
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) 



03375 


70 


0062 


1743 


• V.f- 


ENTALK*62i>.'-Tn;,v. 


03376 


44 


§223 


1744 


% 


STRAL+BUFF^Cfe^.r 


03377 


12 


3403 


1743 . 


- 


ENTAL*L0KtH^|S ; C.: 

STRAL7TF 


03400 


44 


2037 


1746 


: ’ ;/ 


03401 


12 


2144 


1747 




• . A V .•*.,* - 

• ENTAL*TpA7x:*V^- ; #> ; 


03402 


10 


2257 


1750 


■ ■; 


. .ENTAu*Tcoi* ; fc ; T : . 


03403 


22 


2256 


1751 


V ' % ■ * 


• .5MBA*TCoir : f;^’^; ■ 


03404 


63 


3406 


1752 


•• -‘.fa 


.. JPALNZ*TF«8 . . 


03405 


60 


3H0 "■ ' 


1733 


• • • ■ ' 0# •' 


\ JPAUZ^UOKtlv-v^V ' 


03406 


76 


l?42 


1754 


TF«e ■ 


; .Rjp*TFDi^gpl^:, ;, 


03407 


55 


3372 


1755 


• ; 




03410 


12 


2144 


1756 


• . / • • *• 




i- 

03411 


10 


2263 


1757 


;• t ■ ! •. 




03412 


22 


2256 


1760 




■ ; $DBA*TC01|i^ : ;^.‘ * 


03413 


50 


4722 • 


1761 




LSHA*22 i 


03414 


02 


2166 


1762 


* • 




03415 


63 


3427 


1763 


. • 1 


03416 


62 


3427 


1764 


* " 


JpAUNZ*T^??to|v# ■ 
ENTAL*TpATlW^f- . ; 


03417 


12 


2144 


1765 




03420 


10 


2257 


1766 


'V, 


' E N T A U * T C 0 1 ; 

\ .. if- -A* 1 


03421 


22 


2262 


1767 


' f 


SUBA*TC-04 I ¥ ; '3®V i! ' 


03422 


02 


2144 


1770 


' 


CMAL*TPAT^>>;S -v 


03423 


63 


3406 


1771 


•t* 


JPNQWF222 r , ' 


03424 


50 


4722 


1772 


U 


L5HA*22 ' 


03425 


02 


2144 


1773 


7 * 


CMAL*TPAT‘'- •••'¥' 


03426 


61 


3407 


1774 


* 


UPEQ*TF222fl ' 


03427 


50 


4722 


1775 


TF224 


LSHA*22 


03430 


34 


3406 


1776 


c, 


JP*TF222 








1777 


TF23 


PR0G*SC0TT*30APL64 








2000 




remark*error Display » 








2601 


' 


remark*the remainder 








2002 


■* 


remarkms contained I 


03431 


00 


Q0OG 


2003 


TF23 


0* 


03432 


70 


0062 


2004 




ENTALK*62 


03433 


44 


2222 


2005 




STRAL*BUFF1 


03434 


70 


0063 


2006 




ENTALK*63 



SET UP 

ERROR DISPLAY 



SET AL TO 777777 
SET AU TO 177777 
TEST FUNC 
E&ROR JUMP , 

continue 

ERROR DISPLAY 
ERROR EXIT 
SET AL TO 777777 



SET AU TO 200000 
TEST FUNC 
EXCHANGE REGS 
IS AU CORRECT 
ERROR JUMP 
ERROR JUMP 
SET AL TO 777777 
SET AU TO I 77777 



TEST FUNC 
IS AL CORRECT 
ERROR JUMP 
EXCHANGE REGS 
IS AU CORRECT 
YES EXIT 
EXCHANGE REGS 
ERROR JUMP 



FUNCT. CODE IN C REG. 



SUBT Y+B and Y*l+B FROM * 
SET TYPEOUT BUFFER 
TO CODES FOR 23 



23 



; ' .\i ■ 

i tv. 



) 



! • 

\ 



tP 
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03435 

03436 

03437 
03440 
0344)1 

03442 

03443 

03444 

03445 

03446 

03447 
P3450 

03451 

03452 



44 3223 
12 3443 
44 3037 
12 2144 
10 2257 
36 pOli 

23 2245 
63 3446 
60 3450 
76 1742 
55 3431 
12 3146 
10 2263 
36 QQ32 



2007 
2010 
2911 
2012 ; 
2013 t 



2017 < 

2020 



2923 

2024 



! 03453 


23 


2224 


20?5 


'j,. V . •; ' 


034S4 


02 


2166 


2026 


‘■'V :!''* ' ^ ’ S \ 


! 03455 


63 


3446 


; 2027 ' 




j 03456 


62 


3446 


.2030 


^ f 


i 03457 


50 


5100 


2031 




1 03460 


34 


3446 


2032 




1 03461 


55 


3431 


2033 




i 

1 




2034 


TF24' 

/>• 


i 

j 






2035 




l 






2036 


'9 


; 






2037 


"i. 


- 03462 


00 


QQOO 


2040 


TF24'' 


! 03463 


70 


0062 


2041 


•*» 


03464 


44 


2222 


2042 




03465 


70 


0064 


2043 


A 


03466 


44 


2223 


2044 


• j ■ 

.4 . 


' 03467 


12 


3472 


2045 


* 


1 03470 


44 


2037 


2046 




V 03471 


70 


0000 


2047 


1 «•* 


03472 


24 


2261 


2050 


•9 


03473 


61 


3476 


2051 


V 

TF242 


03474 


76 


1742 


2052 


< 03475 


55 


3462 


2053 





STRAL*BllFF?. 

. = • ENTAU*TpAt;^!|p-’ • 

■5- ^PA^Z^TF232i^l^V::' 

r. ; • 

; ;r v;i.jp»TF2ltm^feA?s c; 

,;‘ENTAUPTPIil^^' :: ; 

• ENTAU*Tc^tM^fe: ^ 
5UBA0*TCOi?3^ : ll^ ' 

■■ JPAUN7»Tl?232 I* ■• 



BET UP 

ERROR DISPLAY 
BET AL TO 777777 
SET AU TO 177777 
SET B TO It 

TEST FUNC 
ERROR JUMP 
CONTINUE 
ERROR DISPLAY 
ERROR EXIT 
CLp AL 

SET AU TO 200000 
SET B TO 32 

TEST FUNC 
IS AL CORRECT 
ERROR JUMP 
ERROR JUMP 
CHECK NO BORROW- 
ERROR JUMP 
EXIT 



■ JPAUNZ*TE33*§^-V error jump . 

SKPNB0*0»f%i»>: ; - CHECK NO BORROK- 

JP*TF232S.;f,5| ? 4 , r?#;. E«BO» JUMP 

lJP*TF23#i^-'--'^f :• EXIT 

PROG*SCOTT*300PL64 

. ■ y 

REMARK*ERROR DISPLAY* FUNCT, CODE IN C REG. 
REHARKMHC PRODUCT OF THE MULTIPLY IS 
REMARK*CQNTM n ED IN AU AND AL 

0* >ti >>i ■■■■;.•.:. MULTIPLY AL BY Y 24 

ENTALK*62^ "0 ; : • SET TYPEOUT BUFFER 

STR AL*BUFF 1 V; -• * ■ TO CODES FOR 24 

ENTALK*64 — ; r - 

STBAL*BUFF2 • 



ENTAL*L0K*3- 

sTral*tfx 

ENTALK*0 
MULAL*TC03 
JpALZ*L0K+3 
RJP*TFDlS 
I JP*TF24 



SET UP 

ERROR DISPLAY 
CLR AL 
0 X 377777 
IS AL CORRECT 
ERROR DISPLAY 
ERROR EXIT 
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03476 


70 


Q001 


2054. • 


■ ‘ii 


03477 


24 


2261 


2055 


'. . * 


03500 


02 


2261 


2056 


■ ■ ;* 


03501 


63 


3474 


2057 




Q35Q2 


62 


3474 


2050 


, • /•’ ' . 


03503 


24 


2261 


2061 ■ '■ 


.V ’• > $ 


03504 


02 


2166 


• '..2.002' • ■ 


.y 


03505 


63 


3474 


2063 , 


' ••• • 'H' 


03506 


50 


4722 


:-2fl64 : 




03507 


02 


2257 


2065 


■ ...v ; ... " 4 


03510 


61 


3513 


2066 


V 


03511 


50 


4722 


2067 


TF244 


03512 


34 


3474 


2070 ' 




03513 


12 


2152 


2071 , 




0351*1 


24 


2271 


2672 




03515 


02 


2272 


2073 




03516 


63 


3474 


2074 




03517 


50 


4722 


2075 




03520 


02 


2273 


2076 


•v 


03521 


63 


3511 


2077 




03522 


55 


3462 


2100 


v; 








2101 


TF25 








2102 


A 

>. 








2103 


h\ 








2104 


i 


03523 


00 


QOOO 


2105 


TF25 


03524 


70 


0062 


2106 




Q3525 


44 


2222 


2107 




03526 


70 


0065 


2110 




03527 


44 


2223 


2111 


■- 1 


03530 


12 


3534 


2112 




03531 


44 


2037 


2113 




03532 


70 


3777 


2114 




03533 


36 


Q011 


2115 


V 


03534 


25 


2251 


2116 




03535 


62 


3537 


2117 





I 






ENTALK*1^% ; ^^ . . 


SET AL TO 000001 


MUWL*TC(| 

cmal*tco^«#! 


1 X 377777 


IS AL CORRECT 


s»PN0T*TF24 : fi|§^ ' 


ERROR JUMP 


dPAy,N2*TP24£f 


ERROR JUMP 




377777 X 377777 


. ■ ■ • >':•.* . 


IS AL CORRECT . 


'jpN0T*TF24f:te -v-. • . 


ERROR JUMP 


•tSMA'422 ’ 


EXCHANGE REGS 




IS AU CORRECT 




YES CONTINUE 


U5HA*aa 

JPMF24^4«Sf b#** 


EXCHANGE REGS 


ERROR JUMP 


ENTAL»Tp*t|.*|WS?; : 


SET AL TO 525252 


HULAL*TCi|^||^^{;‘v ■ 


525252 X 343434 




IS AL CORRECT 


:JPNOT*TF24^ViV>^-'. 


ERROR JUMP 


isHA*22 • 


EXCHANGE REGS 


CMAL*TCuT7^4t.V''1c' V • 


IS AU CORRECT 


jpnot»tf244v^: : -’-. ; '.. 


ERROR JUMP 


IJP*TF24 7 


EXIT 


PROG*SCoTT*30APL64 
REMARK*ERRfiR DISPLAY? 


fUNCTs CODE IN C REG* 


remark*the product of 


THE MULTIPLY IS 


REMARK*C0NTAINED in Au and al 


0 * u. ••••. 


MULTIPLY AL BY Y+B 


ENTALK*62 ‘ ; r- ’ 


SET TYPEOUT BUFFER 


STRAL*0UFF1 " 


TO CODES FOR 25 


ENTALK*65 ; 
STRAL*BuFF2; ; 

ental*lok+4 

■J . . . 


SET UP 


stral*tfx 


ERROR DISPLAY 


ENTALK*3777 


SET AL TO 003777 


ENTBK*U 


SET B TO 11 


MUIALB*TC04^14‘ . 


003777 X 0 


JpAUN2*TF252'.: 


ERROR JUMP 



i 



25 



OD 
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03536 


61 


3541 


21 20 


i. 


JpAUZ*L0Kt3,: . 




IS AL CORRECT 


03537 


76 


1742 


2121 


TP252 


'■ . '.r:-,,,. 4.. v. 

rjp*TFDI5M-;?;\^v. 




ERROR DISPLAY 


03540 


55 


3523 


2122 


■ I;jP*tF25" .?$• 'ii • j v . : ■ ' 




ERROR EXIT 


03541 


12 


2177 


2123 




|(4TAU*T P00^ : $ • 




SET AL TO 677777 


03543 


36 


0012 


2124 


.. / • 


ENTBK*l2Vtf;:’^ - 




SET B TO 12 


03543 


25 


2165 


2125 


r 


MUL ALB* TPAP5?1 1' X 




677777 X 677777 


03544 


63 


3537 


2126 


, • , V 


JPALNZ*TF252 V^f . 




ERROR JUMP 


03545 


50 


4722 


2127 


K • 


■ ^SHA*22 C . ' 




EXCHANGE REGS 


03546 


02 


2260 


2130 


, ’ .-v 


■ 0m^l»tco|^;-;^4 . 




IS AU CORRECT 


03547 


61 


3552 


2131 




jpeq*lok4|^!#-'^ j v ; : 




YES CONTINUE 


03550 


50 


4722 


2132 


TF254 ? 


L3HA*22 




EXCHANGE REGS 


03551 


34 


4537 


2133 


JP*TF252'^Vv;-‘v/" 




ERROR JUMP 


j 03552 


12 


2177 


2134, 




ENTAL*TPAl]lt^!Tp^' 




SET AL TO 677777 


1 03553 


36 


0002 


2135 ' 




ENTBK*2 




SET B TO, 2 


03554 


25 


2175 


2136 




MULALB*TRAB5^|W:^V 




677777 X 677777 


1 03555 

! 03556 

i 


63 

50 


3537 

4722 


2137 ' 

2140 








ERROR JUMP 
EXCHANGE REGS 


i 

03557 


02 


2260 


2141 




• t . 1 •*» ’? 7 ;* 

CMALtTCoat'®^':'^,: , 




IS AL CORRECT 


03560 


63 


3550 


2142 




sJPN0T*TF2$4.;j?T:vv 




ERROR JUMP 


03561 


55 


3523 


2143 




1 JP*TF25 ;•••;/ 




EXIT 


! 




2144 


TF26 


PROG*SCoTT*30APL64 




• 


I 






2145 


remark*eRR0r Pjsplay» funCt; 


CODE IN C REG* 


j 






2146 




REMARK*DlVIDE REMAINDER 


IN AU 




i 






2147 




REMARK*D?VIPE QUOTIENT 


IN AL 


DIVIDE A BY Y 26 


03562 


00 


O 

O 

O 

O- 


2150 


TF26 


0? ■ T 




03563 


70 


0062 


2151 




EnTALK*62 




SET TYPEOUT BUFFER 


03564 


44 


2222 


2152 




STRAL*BUFF1 




TO CODES FOR 26 


« 03565 


70 


0066 


2153 




ENTALK*66 . • 






• • 03566 


44 


2223 


2154 




STRAL*BUFF2 : 






1 03567 


12 


3573 


2155 




ENTAL*L0K+4 1 




SET UP 


i 03570 


44 


2037 


2156 




5TRAL*TFX ’ 




ERROR DISPLAY 


1 03571 


10 


2174 


2157 




ENTAU*TPAB4 vV 




SET AU TO 107777 


03572 

1 


12 


2144 


2160 




ENTAL*TpAT . '.v 




SET AL TO 777777 


! 03573 


26 


2165 


2161 


- 


diva*tpab+,;;m 




DIV A BY 300000 


1 03574 


02 


2175 


2162 




CMAU*TPA8ft»l^, : - 




IS AL CORRECT 


; 03575 

1 


63 


3500 


2163 


* ! 


JpN0T*TF26'3ifWr s - 

ft#©- 




ERROR JUMP 
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03576 


34 


3602 


2164 


/ ■ 

■ i * 

V ' t * 


LSHA#22 ' ' 


CONTINUE 


03577 


50 


4722 


2165 




EXCHANGE REGS 


03600 


76 


1742 


2166 


tn , 

CM 

\JU 

Y~ 


RjPATFDlgg 


ERROR DISPLAY 


03601 


55 


3562 


2167 




IJP*TF26§^® ’• 


ERROR EXIT 


03602 


50 


4722 


2170 




LSHA*22 - 


EXCHANGE REGS 


03603 


02 


2175 . 


2171 


*.»' ' ■■ % 


•'eM4L*TPAft.4f-f>:5v 


IS AU CORRECT 


03604 


63 


3577 


2172 




■ :^RN0TfTF^2|W^^': : :- 


-ERROR JUMP 


03605 


10 


2146 


2173 


y 


'■;ENTAU*TpAf .. 


CLR AU' 


03606 


26 


2264 


2174 / . 






DIV A BY 5000Q0 


03607 


02 


2254 


2175 


; . * ’ S '■ 1 




IS AL CORRECT 


03610 


63 


3600 


2176 


■ > '& 


\'aPNOTtTF»^pV^- 

v t 1 


error jump 


03611 


34 


3612 


■'"2177" v 






ERROR JUMP 


03612 


62 


3600 


2200 






03613 


12 


2265 


2201 






SET AL TO 477777 


03614 


10 


2146 


2202 




■^NTAU»TpATMt^v;- 


clear AU 


03615 


26 


2263 


2203 




' XMAtnPA&^l^i 


DIV A BY 200000 


03616 


02 


2243 


22Q4 . 


• ‘ ■ 


• IS AL CORRECT 


03617 


63 


3600 


2205 




JpNOTtTF^^p:^ ■' 


error jump 


03620 


50 


4722 


2206 


' 


L!5HA*22 : ; ' 


EXCHANGE REGS 


03621 


02 


2267 


2207 


c 


' CMAt'»TCufi^S^t fi ;^' ' 


IS AU CORRECT 


03622 


63 


3577 


2210 




JpNQ T * T F263»l yU K r 


ERROR JUMP 


03623 


10 


2266 


2211 




ENTAU*TCUT2^55 ■>& 


SET AU TO 670000 


03624 


12 


2146 


2212 




ENTAL*TpATl -vvy, ?■ •• 


CLR AL 


03625 


26 


2265 


2213 


■V 


Dl VA*TC(jTl & ‘ . 


DIV A BY 477777 


03626 


02 


2175 


2214 


l 


CmAL*TPAB4+^' V 


IS AL CORRECT 


03627 


63 


3600 


2215 




JPN0T*TF263 ; -I 


ERROR JUMP 


03630 


50 


4722 


2216 




LSHA*22 •' 


EXCHANGE REGS 


03631 


02 


2264 


2217 




CmAL*TCUT 


IS AU CORRECT 


03632 


63 


3577 


2220 




JPNPT*TF263fl 


ERROR JUMP 


03633 


55 


3562 


2221 




I JP*TF26 V 








2222 


TF27 


PR0G*SC0TT*30APL64 










2223 




remark+error 0 I SPLAY » FUNCT. 


CODE IN C REG« 








2224 




REMARK*DIV1DE. REMAINDER IN AU 








2225 




remark*divide quotient in al 




03634 


00 


0000 


2226 


TF27 


0* 

• . -t'.T/.. " ■ : ' 


DIVIOE A BY Y+B 27 


03635 


70 


0062 


2227 




v‘ ENTALK*62‘vV;v-'! ’ ; 


SET TYPEQUT BUFFER 



CD 




) 



C 
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03636 

03637 

03640 

03641 

03642 

03643 

03644 

03645 

03646 

03647 

03650 

03651 
0.3652 

03653 

03654 

03655 

03656 
0 3657 

03660 

03661 



03662 

03663 

03664 

03665 

03666 
Q3667 

03670 

03671 

03672 

03673 

03674 

03675 

03676 

03677 



r 



l 



PA6r r 035 



44 2222 
70 0067 
44 2223 
12 $646 
44 2037 

36 0001 -' 
10 2146 
12 2175 
27 2165 
02 2175 
63 3552 
60 3654 
76 1742 

55 3634 
36 0002' . 
27 2262 
02 2251* 
63 3652 
62 3652 
55 3634 



2230 

2231 

2232 

2233 

2234 

2235 

2236 
2237.; 



■STRAU*BURFf;Wft-'.' 

ENTAUK*67^^.,t;^il i - 

5TBAL*BuPF2^;^i/, 

entau*lo^I^:%.^ ; 




2242 ? 

2243 , 

2244..; : '7 ? 

2245 

2246 

2247 

2250 

2251 

2252 

2253 

2254 



... , v.; pivab*tp4^^M^ ; - • ' ' 

>.>•'? ■ : CMAU*TPAB4+^^Splx : - 

. 1 : JPN0T*TF2?*'^^' • ' 
JPAU2*LqKt3^g||^ ' , 

TF278 




IJP*TP27 
•v cntbk *2 v 

V ?JaiStC0 • 

<; • JpN0T»7F272^fg^4^ V : 






TF30 



JPAUNZ* . 

.. I JP*TF27 

PRO0*CASE.Y?3PlFt64 





2255 


t. 

. •'{> ' • 


REMARK*ERROP DISPLAY? funct 




2256' 


V 


REMARK*NO: ERROR DISPLAY JN 


00 0000 


2257 


TF30 


o* . i 


70 0063 


2260 


* 


ENTALK*63':'7^7:.V 


44 2222 


2261 




STRAL*BuFfV . ; lr v •; 


70 0060 


2262 




ENTALK*60 : 1 


44 2223 


2263 




STRAL*BuFF2 ; . 


12 3671 


2264 




ENTAL»L0Kt2 ^ 


44 2037 


2265 




STRAL*TFX 


30 3706 


2266 




lRjp*TF30l ; 


34 3676 


- 2267 




JP*TR30 


30 3706 


2270 




IRJP»TF301*;v 


34 3676 


2271 




JP*TR30 : 


30 3706 


2272 




IR Jp*TF30l ^ 


76 1742 


2273 


TR30«>$ 


0. RJP*TFDIS v 


55 3662 


2274 


'0 


I JP*TF30 



TO CODES FOR 27 



SET DP 

ERROR DISPLAY 

SET B TO 1 
CLR AU 

SET AL TO 277777 
DIV A BY 1 
IS AL CORRECT 

ERROR jump 

CONTINUE 
ERROR DISPLAY 

ERROR EXIT 
SET B TO 2 
DIV A BY 500000 
IS AL CORRECT 
ERROR JUMP 
ERROR JUMP 
EXIT 



» CODE IN C REG* 

AU OR AL 

INDIRECT RETURN JUMP 
SET TYPEOUT BUFFER 
TO CODES FOR 30 



SET UP 

ERROR DISPLAY 
TEST JUMP 
ERROR JUMP 
TEST JUMP 
ERROR JUMP 
TEST JUMP 
ERROR DISPLAY 
EXIT 



CP 
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PAG 1 " 036 



a: 



03700 


00 


QOOO 


2276 


TF302 


- 010 ; 


entrance sub 


03701 


12 


3700 


2276 




..gNTAL*TF302|)«fe.; r 


RETURN ADDRESS 


03702 


71 


QOol 


2277 


' ' # • 


ADDALk*00Q1;:^V,.. : ;V' 


PLUS 1 


03703 


44 


3700 


2300 


■ . . " 


: 57PftL*TF.3P?^^F-:' : 


restore 


03704 


12 


2146 


2301 




• fNtAUTpAM&$tf 


CLR AL 


03705 


55 


3700 


2302 


'■ . ■ . s .. 


UP*TF3p2g®MA, ■ • 

. ■ ' sV ‘i 4^ r 5 ' - ■* - 


• EXIT 


03706 


00 


3700 


2303 

2304 

2305 

2306 


TF301 • 

: ,-:TFM . : 

• • ■ 

... • 


0*TF302 t’- ' 

-t PR6e*cAse^30*py«i4 

funct 

REMARK* N Oi-'P! SP], A Y_ IN At) 0* 


ADDRESS 

» CODE IN C REGt 
AL •• 


03707 


00 


00QO 


2307 


TF31" 


,P* •• ’-41-^ ^.' : 


INDIRECT RJP * B 


03710 


70 


0063 


2310 


>. .. ; v ’ •; 


,;;ENTAl.K*63ft : fev-- : -; : • ■ ' 


SET TYPEOUT BUFFER 


03711 


44 


2222 


2311 


• • .V . 


^5TRAi;*0MFiMf?^: • 


TO CODES FOR 31 


03712 


70 


906! 


2312 


>; ’ ■ 


>.E^TALK*6*^« 




03713 


44 


2223 


2313 


’ • t • . V"/ 






03714 


36 


9001 


2314 ■ 


• ■ V ■ * ' 


SET B TO 1 


03715 


31 


3717 


2315 


■ . ' ? 


JP*TF313 ■ 


TEST JUMP 


03716 


34 


3725 


2316 


' ■ ' , . 


CONTINUE 


03717 


34 


3746 


2317 


‘ ■ ■ *'■ 


JP*TR3l . , 


ERROR JUMP 


03720 


00 


3722 


2380 


TF31! 


0«?F3t2tW^f^ K; 


ADDRESS 


03721 


34 


3746 


2321 


TF312 


JP*TR3l- 7--'" . ' 


ERROR JUMP 


03722 


00 


QOOO 


2322 




0*0 ' -n 

■p'.H v>*-r ■ v ; f . 


ENT 


03723 


55 


3722 


2323 




1 jptTFSim^v fii-yy 


EXIT SUB 


03724 


34 


3746 


2324 




JP*TR3l ; ■: 


ERROR JUMP 


03725 


36 


0002 


2325 


TF313 


ENTBK*.0002 ' 


SET B TO 2 


03726 


31 


3727 


2326 




1RJPB*TF314*2;h : 


TEST JUMP 


03727 


34 


3737 


2327 




JP*TF3l6 ' 


CONTINUE 


03730 


34 


3746 


2330 




' JP*TR3l 


ERROR JUMP 


03731 


00 


3734 


2331 


TF314 


0*TF3l5+2-^ ; > : ; ‘ <• 


ADDRESS 


03732 


34 


3746 


2332 


TF315 


JP*TR3l ' 

■ > * ; *, 


ERROR JUMP 


03733 


34 


3746 


2333 




Jp*TR3l ^ v 


ERROR JUMP 


03734 


00 


0000 


2334 




0*0 y 


ENT 


03735 


55 


3734 


2335 




UP*TF3l5t8 vT: • - : X 


EXIT SUB 


03736 


34 


3746 


2336 




jp*TR3l 


ERROR JUMP 


03737 


32 


2254 


2337 


TF316 


ENTB*TCO ; 


SET BTO MINUS ONE 


03740 


31 


3744 


2340 




!RUPB*TF31IHV: 

' • . . W : ! l ' Jitf • . ' ■>*. <« 


TEST JUMP 



/ 
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PAGF 037 



037»U 

037*42 

037*43 

037*4*4 

037*45 

03746 

03747 

03750 

03751 

03752 



03753 

03754 

03755 

03756 

03757 
03760 
03751 

03762 

03763 
03754 

03765 

03766 

03767 

03770 

03771 

03772 

03773 

03774 

03775 

03776 

03777 
04000 



55 3707 
34 3746 
00 $744 
00 pooo 
55 3744 
12 3711 
44 §037 
12 $146 

76 *742 
55 3707 



2342 



2345 

2346 

2347 
2350 

$351 

2352 

2353 

2354 

2355 



TF310 



; • • V. 

>!P*TR3l->tep^/;.: ' 

0*TF3lO«t»|^^:i' 
0 * 0 . 

IJP*L0K 

ENTAU*Tp5|^^^>: • ' 

STRALfTFX:!-?-^''^; 

RjPfTFOrS^p^^v ' ' 



EXIT 

ERROR JUMP 

address 

ENT 

EXIT SUB 
SET UP 

ERROR DISPLAY 

CLR AL 



IiJP*TF3* .... 

PR0S*CAsE|» 30APL54 ^ rT 

REMARK*ERRQR OlSPLAYf FUNCT. 

REMARK*qoRR!ECT/ P attern in au 
REMARK * I Np 9 RR|£ J ( pATTERN AL 



ERROR DISPLAY 
EXIT 

CODE. IN C REG. 



00 QQoq, 


2357 TF32 . 0* .•IMfV-vs 


70 0063 


§36o : 




44 2222 


2361 


1 stral*buf|^^&4 : 

• ENTALK*62-^fe1.!;.. 


70 0062 


2362 


44 2223 


2363 


. .STRAL*BUFF$^#:^, 


12 3762 


2364 


ENTAULoKtS 


44 2037 


2365 


STRAL*TFX$^1^1:^-' 


32 2144 


2366 


ENTB*TPA T ;: ' If, . :.•/> ’ 


42 2275 


2367 


STRB*SAVEB.-;'e,:.#V V 


12 2275 


2370 


ental*sav^8 ;V^:: > ;' 

•• - V»' v . • > * * v 


10 2144 


2371 


ENTAU*TpAT . i • 


02 2145 


2372 


cmal*tpat+1 \ - v • 


63 4042 


2373 


JPN0T*TF320,v ; ' 


32 2146 


2374 


entb*tpat* 


42 2275 


2375 


STRB*SAVEB ' ' 


12 2275 


2376 


EnTAL*SaVEB-v' 1 


10 2146 


2377 


ENTAU*TpATl i 


02 2147 


2400 


CMAL*TPATl*r . 


63 4042 


2401 


JPN0T*TF320 


32 2150 


2402 


entb*tpaT2 . 


42 2275 


2403 


•* strba*saveb*^-;. = 


12 2275 


2404 


ENTAL*SAVEft^ v ■ 

■ 



ENT B 32 

SET TYPEOUT BUFFER 
TO CODES FOR 32 



A, 

SET UP V 

ERROR DISPLAY 
SET B TO ALL ONES 
SET AL EQUAL B 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
CLR B 

SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 

ERROR JUMP 
SET B TO 252525 
SET AL EQUAL 8 



b 
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04001 10 2150 

04002 02 2151 

04003 63 4042 

04004 32 2152 

04005 42 2275 

04006 12 2275 

04007 10 2152 

04010 02 2153 

04011 63 4042 

04012 32 2154 

04013 42 2275 

04014 12 2275 

04015 10 2154 

04016 02 2155 

04017 63 4042 

04020 32 2156 

04021 42 2275 

04022 12 2275 

04023 10 2156 

04024 02 2157 

04025 63 4042 

04026 32 2160 

04027 42 2275 

04030 12 2275 

04031 10 2160 

04032 02 2161 

04033 63 4042 

04034 32 2162 

04035 42 2275 

04036 12 2275 

04037 10 2162 

04040 02 2163 

04041 61 4043 

04042 76 1742 

04043 55 3753 



\ ' .i, 

2405 

2406 ■* 

2407 V 

2410 

2411 ■ • ■ A 

2412 • ' •** 

2413 , - • 1 

2414 - x ;.; 

2415 . J' £ 

2416 

2417 ■ ' 

2420 • • "-r 

2421 --:.vv ,.y 

2422- • 

2423 . v V 

2424. , 

2425 :• 

2426 

2427 

2430 * 

2431 

2432 * 

2433 • 

2434 

2435 ' J ' 

2436 ; 

2437 

2440 

2441 

2442 

2443 

2444 

2445 

2446 TP320 

2447 

2450 TF33 



ENTAU*TpAT? •: v 

JPNOT*TF320 B s -v- 
' entb*tpat 3;^; 

. 5TRB«SAVfB*-#: : 
^NTAU*5 aVEB^ 

• ENTAU*TpAT3 4 :. 

:’^ENTPtTPAT|^M| 

’ •; -jr s, ' 

intaI** wmm 

.. ENTAUtTpAT^® 
CMAL*TPAT4t|.p; 
•' JpN0T*T.F32Q^M 

• 5TRB»SAVEB 

• Eh|TAU*SAVp"^-, 

^ntau*tpat 5 j -'^; 
CMAL*TPAT5fl.‘.# 
JPN0T*TF320 V4;> 
entb*tpaT 6 •’;* < 
STRB*SAVEB 
ental*saveb .;V- 
ENTAU*TpAT6 
eMAL*TPAT6+l : 

JpN0T*TF320 
ENTB*TPAT7‘ . 
STRB*SAVEB ; : 
ENTAL*SAVEB ■ ■■■' 
ENTAti*TpAT7 y 
CMAL*TPAT7^1 

JpEQ*TF320*l 

RJP*TFPlS. 

- 

|JP*TF32 v"f 
PROQ#CA S EV»30A 



( ) 



PAG" 038 



CORRECT TO AU 
IS AL CORRECT 




ERROR JUMP 
SET B TO 525252 
SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 770000 

SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 007777 
SET AL EQUAL B 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 707070 
SET AL EQUAL B 




CORRECT TO AU 
IS AL CORRECT 



ERROR JUMP 
SET B TO 070707 
SET AL EQUAL B 



CORRECT TO AU 
IS AL CORRECT 
YES EXIT 
ERROR DISPLAY 





EXIT 
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PA6F 039 



I 



i 



! i- 
1 

i 

! 

i' 

i 

I 



1 

i 



I \ 

I 

! 









2451 

2452 

2453 




REMARK^ERROU P|5PLAY» funct, 

remark*correct; pattern in au 

REMARK*lN.GORRfP,T PATTERN JN 


CODE IN C REG. 
AL 


04044 


op 


QQoo 


2454 


TF33; 


0*- ■ 

■. , , ■ • ; 5 y . 


ENTER B +B 33 


04045 


70 


0063 


2455 


.. ' >y. 


ENTALK*63' ; V^iyr 


SET TYPEOUT BUFFER 


04046 


44 


2222 


2456, . 






TO CODES FOR 33 


04047 


70 


0063 


245?' y 




ENTALK*6 . 

STRAL^OUFf^^::^* - 




04050 


44 


8223 


. 2460 


y ■ ■ 


SET UP 


04051 


12 


4054 


2461 


. ■ ‘ih 


:'y E NTAtyto^f?^:^ 1 ^ . 


04052 


44 


8037 


2462 






error display 


04053 


32 


2166 . 


2463 


■ • li. 


.^NTB*TRAaw^vi%-;' v 


PLUS ONE TO B 


64054 


33 


8144 


. 2464 




■ •• . ’ 

STRBtSA 

; 2NTAL*SAVl?|l^«y'':. 


' SET B ,T0 AL^. ONES 


' 1 

04055 


42 


2275 


2465 




V 

SET AL EQUAL B 


04056 


12 


8275 


2466 




correct to au 


04057 


10 


2144 


2467 




... ENTAU*TpAT^|i|^y . 


04060 


02 


2145 


2470 


7 : V‘7 


•:..GMAL*TFATf|^g|iy 


IS AL CORRECT 


04061 


63 


4134 


2471 




' JpNOT^TrWp^pi^' 


error jump 


04062 


32 


2243 


2472 


‘ ' . * M 


.. ENT0*TPAS4y:>iVV;y ; . 


PLUS 2 TO B 


04063 


33 


2146 


2473 


V . " ' . 


' ENTBB*TpATty^y f f . 

' ,STRB*5AVEBy'^yy!^ f ' . 


SET B TO 252525 


04Q64 


42 


8275 


2474 




SET AL EQUAL B 


P4065 


12 


2275 


2475 


"!* 


ENTAtJuSAVEB^^yyV 


CORRECT TO AU 


04066 


10 


2150 


2476 


**' 


ENTAU*Tp4T2y^v < y:':: ■ 


04067 


02 


2150 


2477 


->■ . 


CHAL*TPAT2 


IS AL CORRECT 


04070 


63 


4134 


260Q . 


i; 


jpnot*tf 330 y, 


ERROR JUMP 


04071 


32 


2167 


2501 


* 


ENTB*TPAB1+I ' 


MINUS ONE TO B 


04072 


33 


2154 


2502 




entbb*tpat 4 y. 


SET B TO 525252 


04073 


42 


2275 


2503 




STRB*SAVEB 4'. , 


SET AL EQUAL B 


04074 


12 


2275 


2504 




ental*saveb; .y 




1 

04075 


10 


2152 


2505 




ENTAU*TpAT3 y."'. 


CORRECT TO AU 


04076 


02 


2152 


2506 


- 


CmAL*TPAT3 


IS AL CORRECT 


04077 


63 


4134 


2507 




J PN 0 T * T F 3 3 0 V 


ERROR JUMP 


04100 


32 


2244 


2510 




ENTB*TPAS5 


PLUS 4 TO B 


04101 


33 


2150 


2511 




ENTBB*TpAT2 


SET B EQUAL 770000 


04102 


42 


2275 


2512 




strb*saveb 


SET AL EQUAL B 


04103 

04104 


12 

10 


2275 
2154 ; 


2513 

2514 




ental*saveb 

ENTAU*TpAT4 


CORRECT TO AU 



Ob 









SHEET 41? REVISION 
SB-10163 



0*105 022154 • •• A .: 

04X06 63 4X34 2516 '*1 UPM0T*TF».3<H& . 

04X07 32 2X46 29X7 •* ' ENTB*T PAT* V ■ 

04XX0 33 2X56 . fcBgQ ’V ‘ ' ENTBB*TpAT^t# 

04X11 42 2275 2521 .5 $TRB*SAyE 

041X2 12 2275 - ' 2522 .:■ ,> 'Y.V . ,;ENtAL*SAVg|P*f ' 

^ f . • * t • ' 1 * i ■* f|{<i * . ».'•* ^ /_, . 

04X19 10 2X57 2523 . ■ V PNT jS'f ■ 

04X14 02 2X57 . 2524 ' ; v \ •' ■<'. CM*UTPAT|»j^;t^:- 

041X5 63 4.134 • '2525 . ■,•,' • * ■ JPN0T*TF3$0;^Y^, 

04X16 32 2246 2^26 ■■ : V-: ...• '.**• . / 

041X7 33 2162 ' f ■• 2527 . ’ 4 ' • f: ■ ■ ' tNTBB*TPAT^i®^:v 

04120 42 .2275 .' .2530 . , , 

04X21 12 2275 'V.X2531 - ENTAU*5AVEB«^:|>e^.. 

04122 io:2i6o Y 2532 y ; ,. ■_ 



04123 


02 


2160 : 


2533 




•• ■ CMAL+TPAT6“^V^v.i'; ; 


04124 


63 


4X34 


‘2534 


. H 


, OPNOT*TF330M|l^f^ ’ 


04125 


32 


2245 


2535 


, * ■ 


ENT BtTPASPip^f f?!:: 


04126 


33 


2153 


2536 


i 


'ENTBB*TPAT3^^:,. 


04127 


42 


2275 


2537 


, • • 


»STRB*SAVEB 


04130 


12 


2275 


2540 • 


*&■ 


ENTAL*SAVEB^^^ :, ;f;:... 


04131 


10 


2X62 


2541 




ENTAU*TpAT7 


04132 


02 


2X62 


2542 




CMAL*TPAtT-.v^;:^.r. 


04133 


61 


HX35 


2543 


7 ' ' 


JPEQ*TF33d+i:^ : -^ ' 


04134 


76 


X742 


2944 


TF33Q 


RJP*TFDIS:.., . 


04135 


55 


4044 


2545 


y 


IJP*TF33 ■ ■' 








2546 


TF34 


PROG*CAsEY*30ApL64 








2547 




. remark*error Display 








2550 




REMARK*NO DISPLAY AU 


04136 


00 


QOOO 


2551 


TF34' 


0* - 


04137 


70 


0063 


2552 




ENTALK»63 


04140 


44 


2222 


2553 




stral*buffx, ' 


04141 


70 


0064 


2554 




ENTALK*64 Y \ 


04142 


44 


2223 


2555 




stral*buf.f2 -jY .. 


04143 


34 


4145 


2556 




JP*L0K*2 ' i 7Y 


04144 


55 


4165 


2557 




IJP*TR34t5 ,f r . :• 


04145 


34 


4147 


2560 




JP*L0K + 2 ‘ .« 


04146 


55 


4165 


2561 




ijp*tr 34^9 .• ;-r 




PAG" 040 



IS AL CORRECT 
ERROR JUMP 
CLR B 

SET B TO 007777 
SET AL EQUAL B 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
MINUS 2 TO B 
SET B TO 707070 
S£T AL EQUAL B 

CORRECT TO AU 

IS AL CORRECT 
ERROR JUMP 
PLUS 7 TO B 
SET B TO 070707 
SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 

YES EXIT 
ERROR DISPLAY 
EXIT 

FUNCT, CODE in c reg. 

OR AL 

DIRECT JUMP 34 
SET TYPEOUT BUFFER 

TO CODES FOR 34 



TEST JUMP 
ERROR JUMP 
TEST JUMP 
ERROR JUMP 



•rES 
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04147 

04150 

04151 

04152 

04153 

04154 

04155 

04156 

04157 

04160 

04161 
04152 

04163 

04164 

04165 



04166 

04167 

04170 

04171 

04172 

04173 

04174 

04175 

04176 

04177 

04200 

04201 
04202 

04203 

04204 

04205 

04206 

04207 



34 4151 



2562 

2563 



34 4153 


2564 




55 4165 


2565 




34 4155 


‘ 2566 


• U»y 


55 4165 


2567 


•*> 


34 4164 . 


2570 


V ' th 


55 4165 


2571 


v -h 

•• ; > 


10 2146 


2572 


12 4137 


2573 


TR34; 


44 2037 


2874 


• 


12 2146 


2575 




76 *742 


2576 




55 4136 


2577 




OP 4157 


2600 






2601 


TF35 




?602 






£603 




00 QOOO 


2604 


TF35 


70 0063 


2605 


/ 


44 2222 


2606 




70 0065 


2607 




44 2223 


2610 




12 4177 


2611 




44 2037 


2612 




12 2146 


2613 




36 Q003 


2614 




35 4176 


2615 




34 4211 


2616 




37 0001 


2617 




35 4200 


2620 




34 4211 


2621 




37 7775 


2622 




35 4205 


. 2623 




34 4211 


2624 




37 0003 


2625 





jp*lok+2 . 

ijp*tR34tiy^: ; :i:.' :v. • 

rjP*TR34+f:v^,y ? ..(:y' • 

JP*U0K*2 

IJP*TR34tI|fe^'^-/' 

vlP*TR34+4^;^£f' 

ENTAU*tpAT.P Vs»\. 



TEST JUMP 
ERROR JUMP 
TEST JUMP 
ERROR JUMP 
TEST JUMP 
ERROR JUMP 
TEST JUMP 

ERROR JUMP 
CUR AU 
SET UP 

ERROR DISPLAY 
CUR AU 

ERROR DISPLAY 
EXIT 
ADDRESS 

PR0®*CASE^llft^^64" 1 ■ ■ 

REMARK*ERRpR^jtSPUA7» FjJNCT* CODE IN C REG* 
REMARK^NOyPtSfUAY AU 0* AU 
0* 




f • 



rjp»tfdi^ w ,,,,, 

IX J p ♦ T F 3 4 : 4V- 

0*TR34-t 



ENTAUK*63^Ap-;/- 
STRAL*BUF^t'y4i;i'/>- 
ENTAUK*65:F%;; ; :: ■ 
STRAL*BUFP^> •; 

ENTAU*LOKf 4'||' '■ 
STRAU+TFX • ■' 

ENTAU*TpAT.O^ ■■■'. ■" 

ENTBK*0p03 
JPB*U0K-1 :v;t 
JP*TR35 l' 
ENTBKB^l V- 

jp8*uoK-2 r y i : ; r- 

•• rf B ; 

jp^trss 

ENTBKB*777?. i . ? 

JPB*U0K V 
JP*TR35 
ENTBKB*3 f 



JUMP PLUS B 

SET TYPEOUT BUFFER 

TO CODES FOR 35 



SET Up 

ERROR DISPUAY 
CUR AU 
SET B TO 3 
TEST JUMP +3 
ERROR JUMP 
B ♦ 1 

test JUMP ♦ 4 

ERROR JUMP 
B - 2 

TEST JUMP + 2 
ERROR JUMP 
B + 3 



o 






SHEET 479 REVISION 
SB-10163 



PAGr 042 



0.4210 


35 


4205 


1,2626 ' 

\ _ • 


Vi - 

•</ 




TEST JUMP ♦ 5 


0-4211 


76 


1742 


I * * . 

2627 


TR35 • 


' RjptTFo 


ERROR DISPLAY 


04212 


55 


4166 


2630 ' 

2631 

2632 
, 2633 

i 2634 . 


TF36 : '■ 

; * * 

'.ftr 


IJP*TF35 . 

PR06»CAsE7*iPFP^6.4 
REMARK*ERF10R> ; P?.§PtAY? FUNCT » 
V REMARK*eORR|0T PAtTERN IN 
R E M ARK *1 N0 PRFfPT PATTERN ?N 


EXIT 

code ;n c reg« 

At- ■ ■ 


04213 


00 


QOQO 


2635 


MW : ; 


o* 


ENTER B WITH CONSTANT 


04214 


70 


0063 


2636 ' 


. • • • - 




SET typeout buffer 


Q4215 


44 


2222 


2637 


' . . \ '■ • ’t « 


.::;STRALt0UF«|iS®. . 


TO CODES FOR 36 


04216 


70 


0066 


2640 


' 1 




*' • * 


04217 


44 


2223 


2641 


. ' -V.. . 


: : :• R'AW.*Buf - 


SET Up 


04220 


12 


4222 


2642 r 


7 ’ 




04221 


44 


2037 


2643 




STRAL*TNx4^0^ 


ERROR DISPLAY * 


04222 


36 


0Ooo 


2644 




v ENT0K*O ' - 


CLR B % 


04223 


42 


2275 


2645 , 


\ , • 'i 


: ' STRB*SAVE|j|fe^;,:' 


SET AL EQUAL B 


04224 


12 


2275 


2646 




ENTAL*SA VlllltPW 1 ' 


* 1 


04225 


10 


2146 


2647 




.. ENTAU*TpAn ; j*^.;,-, , 


CORRECT TO AU 


04226 


63 


4301 


2650 


* • 'A'i , ■ 


■v aPALNZ*TF36p^|^>' ; ' • 


ERROR JUMP 


04227 


36 


7777 


2651 


■ '*V \ 


ENTBK*7777^i^^;^ • 


SET B TO 777777 


04230 


42 


2275 


2652 


- ' 


STRB*SAVEB-#|f ; V; l - . , 


SET AL EQUAL B 


04231 


12 


2275 


2653 




feNTAL*5AVE8i£*V-’' ■ 


CORRECT TO AU 


04232 


10 


2144 


2654 


r -1 


ENTAU*TpATV.^V.: 


04233 


02 


2144 


2655 




cmal*tpat. :: 


IS AL CORRECT 


04234 


63 


4301 


2656 


’v; 


JPN0T*TF36Q ^ 


ERROR JUMP 


04235 


36 


pool 


2657 


• 


ENTBK+0001 )•>: 


SET B TO 000001 


04236 


42 


2275 


2660 


/•: 


5TRB*SAVEB V 


SET AL EQUAL B 


04237 


12 


2275 


2661 


* 


ental*saveb v'V - : 


CORRECT TO AU 


04240 


10 


2166 


2662 




ENTAU*TpABl 


04241 


02 


2166 


2663 




CMAL*TPAB1 :/ •*./ 


IS AL CORRECT 


04242 


63 


4301 


2664 




JPN0T*TF36Q 


ERROR JUMP 


04243 


36 


Q505 


2665 




ENTBK+0505' ,, ... 


SET B TO 00Q505 


04244 


42 


2275 


2&66 




strb*saveb = i 


SET AL EQUAL B 


04245 


12 


2275 


2667 




ental*saveb 




04246 


10 


2171 


2670 




ENTAU*TPAB2+1 


CORRECT TO AU 


04247 


02 


2171 


2671 


* i 


CMAL*TPAB2tl 


IS AL CORRECT 



> ') : '-) 



SHEET 480 REVISION 
SB -10163 



( 



! 



j • 04250 63 4301 

'64251 36 7070 

j ' 6 ^ 25 ? 42 2275 

: 04253 12 2275 

j \ 04254 10 2235 

i i 1 04255 02 2235 

i • 04256 63 4301 ■ 

04257 36 2525 

04260 42 2275 

04261 12 2275 

04262 IP 2234 

. 'i < 

'■j 04263 02 2234 

04264 63 4501 

04265 '36 2020 

is 04266 42 2275 , 

04267 12 2275 

04270 10 2226 

04271 02 2226 

04272 63 4301 

04273 36 §252 

04274 42 2275. 

04275 12 2275 

J 04276 10 2233 

1 04277 02 2233 

04300 61 4302 

f 04301 76 1742 

| 04302 55 42U 

i 

r ’ • 

I 



I 

04303 00 P000 

04304 70 0063 

04305 44 2222 

04306 70 0067 

i 

04307 44 2223 






c 



i 






PAGr 043 



2672 

2673 

2674 

2675 

2676 

2677 
27Q0 

2701 

2702 
2703; 



jpN0T*TF36P/i;f ; ,V 
ENTB K 7 0 7 !,• • ' ; 
$TRB*£Ay£$^»$% • 

jMfALisiviWim: 




/f. 

■ -V 

'.ri? ' 

■H' 

d 



CMAL*T p AK7> 



^T^U*Tp^6|®i|f : 

. j. £ 'vi-' i. v ■ • *. 

C M A L * T P AK 6 • < si8?i*SS 



2707 



?iv 



2*12 

27U 



2715 

2716 

2717 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2730 

2731 

2732 

2733 

2734 

2735 



;L 

. •• A 



TF36p 



TF37 



CMAl>TP«K6 
JPNOT* 

ENTBK*2Q20, ra ; 

■ STRBPSA yEB . 

ENTAL»SAVE fc ^M^ v 

ENTAU*TpAKP'IW^f^: 

CMAL*TPAK.:^|fM;i^ 

JPNOT*TF360i$^M;V 

ENTBKf5252V^^|ft : , 
STRB*5AVEB JV;' 

ENTAU*SAV|B^i';it;X>, 

ENTAU+TpAK5. ! ':‘;' f . ' ;> - 

CMAL*TPAK5 
JPEQ+TF360.-*-! . 
RJP*TFDIS ? ' 

IJP*TF36 



ERROR JUMP 
SET B TO 777070 
SET AL EQUAL B 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 002525 
SET AL EQUAL B 

CORRECT TO AU 

JS AL CORRECT 
ERROR JUMP 
SET B TO 002020 
SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 

SET B TO 775252 
SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 
YES EXIT 
ERROR DISPLAY 
EXIT 



PR03*CAsEY*30APL64 

remark*eRRQr Display# funct, code in c reg. 

REMARK*CORRECT PATTERN IN AU 
REMARK*INC0RRECT PATTERN IN AL 

p* enter b with constant ♦ r 

ENTALK*63 : . SET TYPE0UT BUFFER 

STRAL*BuFF1 to CODES for 37 

ENTALK*67 ; 

STRAL*BUFF2 • 



Ob 






SHEET '4&1 REVISION 
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04310 


12 


4313 


2736 


•v 


ENTAL*L0Kt31'c'V.^- 


04311 


44 


2037 


2737 




STRAL+TFX ■A.r,', 


04312 


36 


Q017 


2740 




ENTBK^OOt^t-.V.v,-. 


04313 


37 


0000 


2741 




• ' ENTBKB*0 - 


04314 


42 


2275 


. 2742 




STRB*SAVP|||||^.;V; . 


04315 


12 


2275 


2743 


4- ' ■ 




04316 


10 


2240 


■ ■' 2744 


tV 


■ entao*tpA$|^^v ■: 


04317 


02 


2240 


2745 


i , ’ ’ V 


■SHM.nwwk’Steut 


04320 


63 


4373 


2746 






04321 


36 


P014 


'2747 ■ 






04322 


37 


0001 


2730 


4-.v ' W; / 


• EHTBKB*0:P^?5^!-^ 


04323 


42 


2275 


2751 


. • • ; ‘ • •7* . .. 


. •• STRB*SAVEB^;fc5^ 


04324 


12 


2275 


2752 


• . >y 


•' BHTAL*5A^EB^fS%, v ;; 


04325 


10 


2241 


2753 




-y: 

. • INTAU*TPA$|®®S^ ; 


04326 


Q2 


2241 


2754 




CMAL*TPA52^-M^tvt>' 


04327 


63 


4373 


2755 






04390 


36 


Q013 


2756 




ENTBK*OOlWiWW! 


04331 


37 


7776 


2757 


'7: 


. ENTBKB*7776^^.^ 


04332 


42 


2275 


2760 


■ v ' ' ; 


STRB*SAVEB.^^ 1 ;^$ 


04333 


12 


2275 


2761 


. • 


ENTAL*SAVEa^ 5 <:S i( l ■ 


04334 


10 


2242 


2762 


. *•> 


ENTAU*TpA|9|p|;^, 


04335 


02 


2242 


2763 


a. 


CMAL»TP ASl : 


04336 


63 


4373 


2764 


y St , 


J P N 0 T * T F 3 7. 0 ;KS K ' l . : H * 


04337 


36 


0000 


2765 




ENTBKtO 


04340 


37 


0002 


2766 


a 


ENTBKBtOOOB^ ’ 


04341 


42 


2275 


2767 


-U . 


STRB*SAVEB -’ll -irO- 


04342 


12 


2275 


2770 


- 


ENTAL*SaVE'B„ • ■’ ' < 


04343 


10 


2243 


2771 




ENTAU*TpAS4 J 


04344 


02 


2243 


2772 


it 


CmAL^TPASH;,:-^'-,/.'- 


04345 


63 


4373 


2773 




JpNOT*TF37O’-^'0) ;-V 


04346 


36 


0703 


2774 




ENTBK*0703 


04347 


37 


Q004 


2775 




ENTBK8*0004- 


04350 


42 


2275 


2776 




STRB*SAVEB v ■: 


04351 


12 


2275 


2777 


** 


ENTAL*SAVEB 


04352 


10 


2236 


3000 




ENTAU*TPAK7+1\. 


04353 


02 


2236 


3001 


- 


■ CMAL*TPAK7t|. ( V ‘ - 


04354 


63 


4373 


3002 




JpN0T*TF37Q 







PAGE 044 

SET UP 

ERROR DISPLAY 
SET 8 TO 000017 
0 PLUS ZERO 
SET AL EQUAL B 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 000014 
0 PUUS 1 
SET AL EQUAL 8 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 000013 
0 MINUS 1 
SET AL |QUAL B 

CORRECT TO AU 

IS AL CORRECT 
ERROR JUMP 
CLR B 
B PLUS 2 
SET AL EQUAL 0 

CORRECT TO AU 
IS AL CORRECT 

ERROR JUMP 
SET B TO 00703 
0 PLUS 4 
SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 



) 



NOISXAHH ZB* 1H3HS 




i 



( 



04355 

04355 

04357 

04360 

04361 

04362 

04363 

04364 

04365 

04366 

04367 

04370 

04371 

04372 

04373 

04374 

04375 



04376 

04377 

04400 

04401 

04402 

04403 

04404 

04405 

04406 

04407 

04410 

04411 

04412 

04413 

04414 



( 



PAG r 



045 



36 7770 

37 Q007 
42 2275 
12 2275 
10 2146 
02 2146 

63 4373 

36 2527 

37 7775 
42 2275 
12 2275 
10 2234 
02 2234 
61 4374 

76 1742 
55 4303 
50 5000 



00 opoo 

70 0064 
44 2222 
70 0060 
44 2223 
12 4431 
44 2037 
10 2146 
12 2144 

76 4427 
12 2146 
76 4427 
12 2150 
76 4427 
12 2152 



3003 

3004 

3005 

3006 

3007 
3010 

30U 

3012 

3013 

3014 

3015 

3016 

3017 



3021 

3022 

5023 

3024 

3025 

3026 

3027 
303Q 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3040 

3041 

3042 

3043 

3044 

3045 

3046 



TF37o 

TF4Q 

Tf40 



SET B TO 777770 

B PLUS 7 

SET AL EQUAL B 

CORRECT TO AU 
IS AL CORRECT 

error jump 

SET B TO 002527 
B MINUS 2 
SET AL EQUAL B 

CORRECT TO AU 
•IS AL CORRECT 
YES EXIT 

ERROR DISPLAY 
EXIT 



IslP*TF37 
SKP*OQ : 

PR0S*CAsEY*3()ftPL64 

REMARK*ERROR :i) .ISRLAy» FJNCT, CODE IN C RES 

REMARK*CORRECT. pattern IN AU A 

REMARK* iNCOHREpT PATTERN IN AL 



ENTBK»7770C- ; • 

ENTBKB*6007 
STRB*SA VE8.’--?,y.4 v '7 > ' 

ENTAL*SAVE8^Jr/.„ 

entau»tpat1;.;^W : :'---.: 

CMAL7TPATt:fS,E ; -': 

ENTBK«2527^M ! e: ; . 

. ENTBKB*777t^^-u: ; 
STRB*SAy/EBt; s 
ENTAL*SAVEfe^i 



lEBiMWm- /,V. 

MEMM-r'. : 



ENTAU^TPAKPJ^ 



s- r* » * v ▼ p r, ^ .1 fx ? c 

CMAL*TPAK^^%fe:’- - 

JPEQ*TF37P7^|:^ ! . ; . • 

rjpptfdisM^M*^ • 



% 

•u 



0* 

ENTALK*64f :Sh 
STRAL*BtjFpl . 
ENTALK*60 
STRAL+BUFF2 • 
ENTAL*TF40Tt2 
STRAL*TFX ‘ •' 
ENTAU*TpATl 
ENTAL*TPAT. k : :- 



RJP*TF40T ' 

ENTAL*TpATl; 

RJP»TF40T •• 

ENTAL*TpAT2 

RJP*TF4QT 

ENTAL*TPAf8 



CLEAR Y 40 



SET TYPEOUT BUFFER 
TO CODES FOR 40 



SET UP 

ERROR OISPLAY 
CORRECT TO AU 
SET AL TO 777777 

TEST CLR 
CLR AL 
TEST CLR 

SET AL TO 252525 
TEST CLR 

SET AL TO 525252 



& 
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PAGr 046 



0441 s 


76 


4427 


.3047 


■V; ' 


■ RJP4TF40T 


04416 


12 


2154 


3050 ■ 




ENTAL+TPAT4;,:.: ; ;'::?-, V V , 


04417 


76 


4427 ’ 


3051 




RJP*TF40T;>:^^ ' 


04420 


12 


2156 


3052 


.*rv 


. ENTAL*TpA / 


04421 


76 


4427 


3063, 


■ t ■ 


. rup*tf4ot-/^»--U::' . 


04422 


12 


2160 


3064 




ENTAL*TpA||fe^:^;t.f'.. 


-04423 


76 


4427 ' 


3055 




■ ■ RJP*TF4ot 


*04424 


12 


2162 


3056 


• / ; 


• > ENTAUTPA^^f ^/3 


0442S 


76 


4427 


' 3057 




. . Rjp*TF40T|!^f , f *£ 


04426 


55 


4,376 


3060 


, 


■' ‘I JP*TF4&. •<■••• 


04427 


00 


QOOO 


3061 


TF40T . 


; 0*0 


04430 


44 


2253 


3062 






04431 


40 


2253 


3063 * 


' 4 > ¥■ ?• 


■ : p^tpar 


04432 


12 


2253 


3064 ; 




.■"ENTAL*TpAR#^V«lS 5 t ;, 


04433 


63 


4435 


• 3065 


1 : ; • • 


UPALNZ*TR 4 ff§ji^f 


04434 


55 


4427 


3066 




IJP»TF40T^^|^ 


04435 


76 


1742 


306? 


TR40 


rjp*tfois||§^5?^v 


04436 


55 


4376 


3070/ 




IJP*TF40 



aon 

3072 

3073 

3074 



TF41 



04437 


00 


0000 


3075 


TF4V- 


0 * ‘t‘V. 


04440 


70 


Q064 


3076 


•t* 


ENTALK*64; 


04441 


44 


?222 


3077 




stral*bOffi 


04442 


70 


0061 


3100 


■*> 


ENTALK* 6 l ,; 


04443 


44 


2223 


3101 




5TRAL*BUFF2: ; v 


04444 


12 


4452 


3102 




ENTAi_*L0K+6 


04445 


44 


2037 


3103 




stral*tfx 


04446 


10 


2146 


3104 


*! 


ENTAU*TpATI 


04447 


36 


pool 


3105 




ENTBK*O0Ol ' 


04450 


12 


2144 


3106 




ENTAL*TpAT 


04451 


45 


2252 


3107 




, straLb*tparfj. ' 


04452 


4i 


2252 


3110 




. 1 CLB*TpARfl 


04453 


12 


2253 


3111 




ENTAL*TpAR 


04454 


63 


4521 


3112 




• UPALNZ»TR4I 



PRO0fCAsEY*3OAPL64 
REMARK*ERR0rt UISPLAY» FUNCT ® 

remark*cobrect pattern in au 
remark*incorr 6 ct PATTERN IN 



T£ST CLR 

SET AL TO 770000 
TEST CLR 

SET AL TO 007777 
TEST CLR 

SET AL TO 707070 
TEST CLR 

SET AL TO 070707 

TEST CLR 
EXIT 

ENTRANCE 
SAVE AL 
CLEAR STORAGE 
CHECK CLEAR 
ERROR JUMP 
EXIT CHECK 

ERROR DISPLAY 
ERROR EXIT 

COPE IN C REG* 

AL 

CLEAR Y+B 41 
SET TYPEQUT BUFFER 

TO CODES FOR 41 



SET UP 

ERROR DISPLAY 
CORRECT TO AU 
SET B TO 1 
SET AL TO 777777 

SAVE AL 

TEST CLEAR 

SET AL EQUAL CLEAR 

ERROR JUMP 



0 > 



. V >. '• ' 



) 



) 



wWHRPKWtfft •aw* 



L. 
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04455 36 0000 3113 

04456 12 2146 3114 



04457 


45 


2253 


04460 


41 


2253 


04461 


12 


8253 


04462 


63 


4521 


04463 


32 


2167 


04464 


12 


2150 


04465 


45 


2254 


04466 


41 


2254 


04467 


12 


2253 


04470 


63 


4521 


04471 


32 


2243 


04472 


12 


2152 


04473 


45 


2251 


04474 


41 


2251 


04475 


12 


2253 


04476 


63 


4521 


04477 


32 


2244 


04500 


12 


2156 


04501 


45 


2247 


04502 


41 


2247 


04503 


12 


2253 


04504 


63 


4521 


04505 


32 


2246 


04506 


12 


2150 



04507 

04510 

04511 

04512 

04513 

04514 

04515 

04516 



45 2255 
41 2255 
12 2253 
63 4521 
32 2245 
12 2152 
45 2244 
4 1 2244 



3115 

3116 

3117 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3150 

3151 

3152 

3153 

3154 



04517 12 2253 3155 

04520 61 4522 3156 





ENTBK*0 .y 

ENTAL*TpAJl H 

STRALBnPAR.;UC '£ 

CLB*TPAR ■ 

ENTAL*TPAR ’- ;>V 
gpALNZ*TRHi^#<v.V>' 
ENTB*TPA0l + |'Cn ^v f 
ENTAL*TPAT2 
STRAUB*TPAR 
CLB*TPAR+1 ;v;' 



ENITAU+TPAR, 

JPALNZ*TR4i 
ENTB*TPAS4 ’1. 

ENTAU*TpAT3 r < 

stralb*tpara? ' v 






JPAUNZ*TR41 



ENTB*TPAS5 

ENTAt;*TpAT5 

STRALB*TPAR^4 

CLB*TPAR-4 

ENTAL*TpAR 

JPALNZ*TR4l 

ENTB*TPAS7 

ENTAL*TpAT2 



5TRALB*TPAR+2 

clb*tpar+2 

ental*tpar 

JPALNZ*TR41 

ENTB*T p AS6 

ENTAL*T p AT3 

5TRALB*TPAR-7 

CLB*TPAR-7 



ENTAL*TPAR 

JPALZ+TR4U1 






J 



PAG*- 047 

CLR B 
CLR AL 

SAVE AL 
TEST CLEAR 
CHECK CLEAR 
ERROR JUMP 
SET B TO MINUS 1 
SET AL TO 252525 
SAVE AL 
TEST CLEAR 

CHECK CLEAR 
ERROR JUMP 
SET B TO 2 
SET AL TO 525252 
SAVE AL 
TEST CLEAR 
CHECK CLEAR 
ERROR JUMP 

SET B TO 4 

SET AL TO 007777 

SAVE AL 

TEST CLEAR 

CHECK CLEAR % 

ERROR JUMP 

SET B TO MINUS 2 

SET AL TO 252525 ' 

SAVE AL 
TEST CLEAR 
CHECK CLEAR 
ERROR JUMP 
SET B TO 7 
SET AL TO 525252 
SAVE AL 
TEST CLEAR 

CHECK CLEAR 
CORRECT exit 



SHEET 485 REVISION 
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PAGr 048 



04521 


76 


1742 


3157 


TR4V 


RJPfTFDlS V,. • 




.ERROR DISPLAY 


04522 


55 


4437 


3160 > 


* 


IJP*TF4l 




EXIT 








3161 


TS4i 


PR0G*SCoTX*3QAPL64 












3162 




REMARK*ERROR 0ISP.IAY* 


funct 9 


CODE 'IN C REG. 








3163 




REMARK*SH|FTEP pattern in au 










3164 




REMARK*SHIFT VOUMT IN 


AL 




04523 


00 


Qoqq 


3165 


TS41 


0* 'v. ■( 




RIGHT SHIFT AU 5041 


04524 


70 


0065 


3166 


>S ' 


ENTALK+65 ; , 




SET TYPEOUT BUFFER 


Q4525 


44 


2222 


3167 


\ V 


STRAL*BuFFi;: 




TO CODES FOR 5041 


04526 


70 


0060 


3170 




ENTALk* 60 ^ i . 


* 




04527 


44 


2223 


3171 




- STRAU»BuF.F2 J vjfc;yv;. . 






04530 


70 


0064 ; 


3172 




ENTALK*64^xVv 




• 


04531 


44 


2224 


3173 




STRAb*BuFF3^i : v ; 






04532 


70 


0061 


3174 




ENTALK*6l • •' 






04533 


44 


2225 


3175 




STRAL*BuFF4v WV : . ... 






04534 


12 


4540 


3176 




ental*ts*UMS;^ 




SET UP 


04535 


44 


2037 


3177 




STR AU*TFX%^i l ^% 1 : 1 ' • • 




ERROR DISPLAY 


04536 


36 


0001 


3200 




' ENTBK*1 '• 




SET B TO 1 


04537 


10 


2263 


3201 




E N T A U * T C 0 4 1 i V; ■< 




SET AU TO 200000 


04540 


50 


4101 


3202 


TS411 


R5HAU*1 v>\-. 




SHIFT AU RIGHT 1 


04541 


62 


4545 


3203 




JpAUNZ*T^4l3 / 1 




SHIFT OK CONTINUE 


04542 


12 


pool 


3204 


T5412 


ENTAL*0001: 




SET AL EQ1JAL B 


04543 


76 


2040 


3205 




RJP*TSDlS 1 




ERROR DISPLAY 


04544 


55 


4523 


3206 


. 


IJP*TS41 ‘ 




ERROR EXIT 


04545 


56 


2200 


3207 


TS413 


BSK*TPAB6 




SHIFT COMPLETE 


04546 


34 


4540 


3210 




JP*TS4U 




NO CONTINUE 


04547 


50 


4101. 


3211 




rshau*i 




SHIFT AU END OFF 


04550 


62 


4542 


3212 




JpAUNZ*TS4l2 , 




ERROR JUMP 


04551 


10 


2170 


3213 




ENTAU*TPAB2 ; 




SET AU TO 400000 


04552 


50 


4121 


3214 


J* 


RSHAU*2i 




CHECK SIGN EXT 


04553 


50 


6200 


3215 




CPAU*0 




CHECK ALL ONES 


04554 


60 


4544 


3216 




JPAUZ*TS413*1. - 




EXIT 


04555 


50 


6200 


3217 




CpAU*0 




RESTORE AU 


04556 


36 


0021 


3220 




ENT8K«2l 




CORRECT TO B 


04557 


34 


4542 


3221 




JP*TS4l2 




ERROR JUMP 








3222 


TF42 


PR0G*CAsEY*3QAPL64 
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\ 



! 

i 



i 

i 

t 

! 



\ 

I 

i 



I 

I 

! 



04560 

04561 

04562 

04563 

04564 
■'$565 

04566 

04567 

04570 

04571 

04572 

04573 

04574 

04575 

04576 

04577 

04600 

04601 
04602 



3223 

3224 ■ 

3225- 1 

oo 0000 3226 ) TF42 

70 0064 3227 

44 2222 3230 . * 

... _ ■ • * . ■ * . i . *h 

70 0062 \ 3831 > f , i 

44 2223 ‘3232 

12 4570 3233 - 

44 2037 3234 T 

32 2144 , 3235 ■ 

42 2253 3236 

12 2253 3237 

10 2144 3240 



02 2145 
63 4646 
32 2146 
42 2253 
12 2253 
10 2146 
63 4646 
32 2150 



3241 
384« • 

3243 
,3244 

3245 

3246 

3247 
3250 







REMARK *ERROR PjSPLAYf FUNCT, CODE IN C REG* 
REMARK^CORRfefeT PATTERN IN AU 
REMARKnNgPBRlPT' PATTERN IN At 
n* , . . STORE B 42 

£NTAU*6^:^' :; H>V SET TYPEOUT BUFFER 

5T«Alr»RUl?f$.#e‘^-: '• TO CODES FOR 42 



nsastm 

ST R A^*TF.K^i'^'.^:.:- • 

• ENTB»TPA.%j(*^*fte*- 

STRB*TPAR^^i^:'- 
|WTAI-#TPA^;^^^’. : 
ENTAU+TpAfH:^:.^-; 

^MAU4TPATtig0C 

strb*tpar ;*;• 

ENTAt*TpAR ^ 
ENTAU*TPAT1: V 1 : 
>JPALNZ*TF42Q;; 
ENTB»TPAT2 






SET UP 

ERROR DISPLAY 
SET B TO 777777 
SAVE B 

SET AL EQUAL B 
CORRECT TQ AU 

IS AL CORRECT 
ERROR JUMP 
CLR B 
SAVE B 

SET AL EQUAL B 
CLR AU 
ERROR JUMP 
SET B TO 252525 



04603 


42 


2253 


3251 


04604 


12 


2253 


3252 


04605 


10 


2150 


3253 


04606 


02 


2151 


3254 


04607 


63 


4646 


3255 


04610 


32 


?152 


3256 


04611 


42 


2253 


3257 


04612 


12 


2253 


3260 



5TRB*TPAR ' ' 1 

ENTAL*TpAR 

ENTAU*TPAT2 , 

CMAL^TPAT2 t t 

JPN0T*TF420 

ENTB*TPAT3 

strb*tpar 

ENTAL*TpAR 



5AVE B 

SET AL EQUAL B 
CORRECT TO AU ! 
IS AL CORRECT 
ERROR JUMP 
SET B TO 525252 
SAVE B 

SET AL EQUAL B 



04613 


10 8152 


3261 




ENTAU*TpAT3 


04614 


02 2153 


3262 




CMAL*TPAT3+t 


04615 


63 4646 


3263 


** 


JPN0T*TF420 


04616 


32 2154 


3264 




ENTB*TPAT4 


04617 


42 2253 


3265 




STRB^TPAR 


04620 


12 2253 


3266 




ENTAL*TPAR 


04621 


10 2154 


3267 


t 


ENTAU*TpAT4. 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 770000 
SAVE B 

SET AL EQUAL B 
CORRECT TO AU 



PAG' 4 049 



o 



^*^*-**■****1^^ wo, ... ; 
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PAG- 050 



04622 

04623 

04624 

04625 

04626 

04627 

04630 

04631 

04632 

04633 

04634 

04635 

04636 

04637 

04640 

04641 

04642 

04643 

04644 

04645 

04646 

04647 



04650 

04651 
' 04652 

04653 

04654 

04655 
! 04656 

04657 
, 04660 

04661 

I 

I 






02 


2155 


3270 


-w 

; h , 


; . X :;v. ./ 

CMAUfPAT$*^" ‘ 


IS AL CORRECT 


63 


4646 


3271 




. 4 PN 0 T*TFftfcQ®-:- .V 


ERROR JUMP 


32 


2156 


3272 




•, ENTBYtPAT| 


SET 8 TO 007777 


42 


2253 


3273 




■ STRBFTFAR-MifetS; 


SAVE B 


12 


2253 


3274 , 


“ ; •' -V 


ENTRU#TPAR?.tf^V;- 


SET At EQUAL B 


10 


2156 


3275 


& 




CORRECT TO AU 


02 


2157 


. 3276 , 


, • /« ‘ • ,: » ; 




IS AL CORRECT 


63 


4646 


3277 * 


1 "ik 


. ; UpNOT*TN^'lf ^ S ft 


ERROR JUMP 


32 


2160 


. 33 Q 0 


• v . 


' V •' ■ 


gET B TO 707070 


42 


2253 


3301 




■> STRB*TPAR;:^if£^;vMi ' 


SAVE B 


12 


2.253 


'3302 •: 


.VJ* / * 




SET AL EQUAL B 


10 


2160 


3303 


' : V ' 


' , ENT‘AU«TpAT 3 :«T%:. 4 ‘-' -. .. 


CORRECT TO AU 


02 


2161 


3304 




•: • • .CtfACWAT#tj^ &§? ■ 


IS AL CORRECT 


63 


4646 


3305 




; ^pN 07 YTF 4 ^»« f '• ’• 

•e.NT«FTFAY? f ^|^|g^.; 


ERROR JUMP 


32 


2162 


, 3306 


\ 4 T- ‘ t 1 


SET B TO 070707 


42 


2253 ' 


3307 


’ * * 4 \ 1. 


• STRBFTFAR^^^^*'' 


SAVE B 


12 


2253 


3310 




gNYAL*f ■ 
ENfAU#TpRT7^?;^f‘V • 


SET AL EQUAL B 


to 


2162 


$31 i 




CORRECT TO AU 


02 


2163 


3312 


•• ’ * 


C M A L ♦ TP A T.? t 


IS AL CORRECT 


61 


4647 


3313 


. •. > > 


UpEQ*TF420^i: 


YES EXIT 


76 


1742 


3314 


TF420 


RJPYTFOI* 


. ERROR DISPLAY 


55 


4560 


3315 

3316 


\ 

TS 42 


IJP*TF 42 ■ .•■r.: ' '• 

PROG*SCOTTY3O0PU4 


EXIT 



3317 

3320 

3321 

00 QQ00 3322 

70 Q065 3323 

44 2222 3324 

70 0060 3325 

44 2223 3326 



REMARK*ERRQR DISPLAY* FUNCT, C 00E IN C REG. 

remark*sHIFt count in au 

REMARK*SHIFYEO PATTERN IN AL % 

T542 Q» RIGHT SHIFT AL 5042 * 

ENTALK*65 / SET TYPEOUT BUFFER 

STRAL*BuFf*, . TO CODES FOR 5042 

* entau*60 

STRAL»BUFF2 

'• \ • ’ 



70 0064 


3327 


ENTALK*64 , : 


44 2224 


3330 


STRAL*8UFP3 - 


70 Q062 


3331 


ENTALX*62 


44 2225 


3332 


STRAL*BuFF4 


12 4665 


3333 


i‘tM ental*ts421‘ •; 



SET UP 




\ 



SHEET 488 REVISE « 
SB-1016T . 



I 



PAGr 051 



04662 44 2037 



3334 



04663 


36 Q0O1 


3335 • 


- A- ■ 


04664 


12 2263 


3336 




04665 


50 4201 


3337 


imi 


04666 


63 4673 


3340 ■••• 




04667 


42 2275 


3341 


TS422 


04670 


10 2275 


3342 




04671 


76 2040 


3343 




04672 


55 4&50 


: 3344 * ' 


• . — ' . 

‘ ^ 


04673 


56 22P0 )> 


'3345:; Y$ 


TS423 


04674 


34 4665 


: ■ 3346 / 


f : • -A 


04675 


50 4201 


,i 3347 / ■ 


; V \ ; 


04676 


63 4667 


" 33gq x 




04677 


12 2170 


3351,-V 


‘ i. v . 


04700 


50 4221 


■ 3352 v • 




04701 


50 61 po 


3353 


K*. ‘ ’ X 


P4702 


61 4672 


:;3354 'r 


• . ■ ■ ‘t 


04703 


5P 61P0 


3355 




04704 


36 Q021 


3356 


; n 


04705 


34 4667 


3357 

3360 

3361 


*•*1 

TF43 

$ 






3362 

3363 


•K 


04706 


00 0000 


3364 


TF43 

'< 


04707 


70 0064 


3365 




04710 


44 2222 


3366 




04711 


70 Q063 


3367 


r 


04712 


44 2223 


3370 




04713 


12 4716 


3371 


V 


04714 


44 2037 


3372 




04715 


32 2166 


3373 


N 


04716 


43 2252 


3374 




04717 


12 2253 


3375 




04720 


10 2166 


3376 


v 


04721 


02 2166 


3377 





Strautfx^ ^ , .. 

ENTAl,#TeQ|^^-^ 
RsHAi.fi ■ 
JPALNZ*TS^?3;C^^ 

5TRB*SAVE§^$i^V 
ENTAUf5AV| ^rngt,;-- 

jjP*T§4£ •;. 





1 f wgvwMhmy 

•v /-•iiyti'i* m. 

CRAtfO 
ENTBK*2t 
JP*T5422 -*m, 
PR06*CAsEV*1QAPL64 

REMARK*ERROR PISPUY* FUNCT. 

remark*correct pattern in au 

REMARKfJNCQRRlpT PATTERN IN 

0* •»•■ •»• 



ERROR DISPLAY 



SET 0 TO 1 
SET AL TO 200000 
SHIFT AL RIGHT 1 
SHIFT OK CONTINUE 
SET AU EQUAL 0 

ERROR DISPLAY 
ERROR EXIT 

SHIFT COMPLETE * 

NO CONTINUE 

RIGHT SHIFT END OFF 

ERROR JUMP 

SET At TO 400000 ^ 

CHECK SIGN EXT ^ 

check all ones^ 



ENTALK*64\ 

stral*bufei . 

ENTALK*63 

STRAL*BuFF2 

ENTAL*L0Kf3 

STRAL*TFX 

Entb*tpabi 

STRBB*TpAR«t 

ENTAL*TPAR . 

ENTAUfTpARl 

CMAL*TPABl 



restore al 
correct COUNT TO b 
error jump 

code IN c reg« 

al 

STORE B AT Y+B 

SET TYPEOUT BUFFER 
TO CODES FOR 43 



SET UP 

ERROR DISPLAY 
SET B TO 1 
SAVE B 

SET AL EQUAL B 
CORRECT TO AU 
IS AL CORRECT 



to 









\ 



SHEET 439 REVISION 
SB-^0163 



04732 63 4766 

04723 32 2243 

04724 43 2251 



04725 

04726 

04727 

04730 

04731 

04732 

04733 

04734 

\ i 

Q4735 

04736 

04737 

04740 

04741 

04742 

04743 

04744 

04745 

04746 

04747 

04750 

04751 

04752 

04753 

04754 

Q4755 

04756 

04757 i 

04760 ; 

04761 i 

04762 : 

04763 ] 

.04764 { 



> 12 §253 
* 10 §243 

' 02 §243 

1 63 4766 
32 §167 
43 §254 
12 §253 
10 §167 

02 §167 
63 4766 
32 §§44 
43 §247 
12 §253 
10 2244 
02 2244 
63 4766 

36 00QQ 
43 2253 
12 2253 
10 §146 
63 4766 
32 2246 
43 §255 
12 §253 

10 2246 
02 §246 
63 4766 
32 §245 
43 §244 
12 2253 
10 2245 

02 §245 



3400 

3401 
34p§ 

3403 

3404 

3405 

3406 



3410 

3411 
341§ 

3473 

3414 



04765 61 4767 



3416 

3417 
34§q 

3421 

3422 

34§3 

3424 

3425 

3426 

3427 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3440 

3441 

3442 

3443 



■ • JPN0WF43O'' 

ENT0*TPA$lfe*Ah ; 

STR5BtTpAR»2 :; v - • r :' ' 

. £NTAU*T6A54fyt^.' : 

' ,<?MAl.*TPAS4 ; ^fy:!vt^ 

■ •• 4PNQ '• 

5 T R B B * Tp A R* jt&y V : 
•;.;lNTAl7TpAfl'^«/; ( 

: ;.4CMAL7TPABW||f'fe 

- - *JPN0T*TF459»%:( 
ENT8*TPAS5 - 

: "STRBRf TPAR*<|^^ 

• ENTAU6TpAlpMp|i 

■ cmae*tpas5^.:^ ■- 

s<pN0T*TF43R|^| ; ;;vr4? 

entbk * 0 

STRBB*TpAR y: *^v:- y 

ental*tpari$# 
ENTAU*TpATi : ' ‘ :'£>* ■ 
JPALN2*TFR3h v r- r '-' ' 
ENTB^TPA^'T-''- 
STRBB*TpARt2- 
ENTAL7TpAR ; • , 

ENTAU*TPA57 ■ ' 

cmal*tpas7 ;• 

JPNOT*TF430 ! 

ENTB*TPaS6 

STRBB*TpAR**7 

ENTAL*TPAR 

ENTAU*TpAS6 

CMAL*TPAS6 ; - 

\: r 

JPEO*TF430.H-,^ ;• 






mmd 



t+rMr* 



PAG^ 052 



ERROR JUMP 
SET B JO 2 
SAVE 0 

SET AL EQUAL 9 
CORRECT TO A^ 

IS AL CORRECT 
ERROR JUMP . 

SET B TO min us 
SAVE B 

SET AL EQUAL 9 
CORRECT TO A*-* 

IS AL CORRECT 
ERROR JUMP 
SET B' TO 4 
SAVE B 

SET AL EQUAL 9 
CORRECT TO At* 

1$ AL CORRECT 
ERROR JUMP 

ClR 8 
SAVE B 

SET AL EQUAL 0 
CORRECT TO AU 
ERROR JUMP 0 

SET B TO MINUS 2 %$, 
SAVE B V 

SET AL EQUAL 0 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 7 
SAVE B 

SET AL EQUAL ^ 

CORRECT TO AU 
IS AL CORRECT 



\ 



YES EXIT 
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PAGF 053 



04766 

04767 



04770 

04771 

04772 

04773 
Q4774 

04775 

04776 

04777 

05000 

05001 

05002 

05003 

05004 

05005 

05006 

05007 

05010 

05011 

05012 

05013 

05014 

05015 

05016 

05017 

05020 

05021 

05022 

05023 

05024 

05025 

05026 






76 1742 


3444 


Tp43o 


55 4706 


3445 






3446 


• TS43 




3447 


• ; ‘ ■ S , ’f , 




3460 

1 ' ‘ ‘ 


"■ * • .if 




3451 . 


; ' V . * • tS . 


00 QOpO 


3482 


T84# 


70 0065 


3453 


: , '• • \ *y 


44 2222 


3454 


" ‘ % 


70 Q06Q 


3455 


.t-:- ‘ V ' 

f . • 


44 8223 


3456 . 


* ! i .'*4 1 


70 PQ64 


34§7 




44 8224 


. 34$0 




70 Q063 


3461 




44 §225 


3462 • 




12 §006 


3463 




44 2037 


3464 




36 0001 


3465 




10 §263 


3466 




70 0000 


3467 




50 4301 


347Q 


TS431 


62 5Q14 


3471 




42 2275 


3472 


TS432 


12 2275 


3473 




76 2040 


3474 




55 4770 


3475 




56 2200 


3476 


TS433 


34 §0Q6 


3477 




50. 4301 


35p0 




62 5010 


3501 




36 QOOO 


3502 


■* 


50 4301 


3503 


TS434 


63 §027 


3504 




42 2275 


3505 


TS435 


12 2275 


3506 




76 2°40 


3507 




55 4770 


3510 








ERROR DISPLAY 
EXIT 



REG* 



RUP#TFD*#j 
IJP*TF43‘^ .v ■ •, 

PR06*SC0TT*3pAPU64 

REMARK*ERRPR PiSPLAY* FUNCTf CODE in c - • . 
REMARK*SH|f||i!‘PlT TER N OR SHIFT COUNT IN AU 

REMARK*SWII^i;Mt T ^N OR SHIFT COUNT IN At 
0*' . 

ENTALKHSf® 



,5TRAL*ffUF^'#||'#^:: ... ' 

ENTALK*6ff^^K':v^: r . 

. 5TRAL*9uFf|fii^ : 




ENT AUK *63 
5TRAL*BuFFf|p?^^ 

STRAU*T?X%5^#^ 

ENTBK*1 

ENTAU*TC0Htl%;;, 
ENTALK*0 
RSHA*1 f 

JPAUNZ*T5433 S 
STRB*SAVEB V; i- 
ENTAU*SAVC8 . 
RJP*TSDJS 
IJP*TS43 ' \ 

BSKtTPAB6> 
JP*TS431 , 

RSHA*1 

JPAUNZ*TS43ii !•; 
ENTBK*0 
RSHA*1 ? 

JpALNZ*TS436 
STRB*S^VEB 
ENTAL*SAVEB i 
RJP*TSDIS 
IJP*TS43 ,;V:. ’• 



fel- ■ 

i 



RIGHT SHIFT A 5043 
SET TYPEOUT BUFFER 
TO CODES FOR 6043 



SET UP 

ERRORS DISPLAY 
SET B TO 1 
SET AU TO 200000 
CLR AL 

SHIFT A RIGHT <1*1 



Ty 



SHIFT OK CONTlNl/l 
SET AL EQUAL B 

ERROR DISPLAY 
ERROR EXIT 
SHIFT COMPLETE 
NO CONTINUE 
SHIFT AU RIGHT TO AL 

ERROR JUMP 
CLR B 

SHIFT A RIGHT 1 
SHIFT OK CONTINUE 
SET AL EQUAL B 

ERROR DISPLAY 
ERROR EXIT 
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PAGr- 054 



05027 


56 


2200 


3511 


TS 1436 


BSK*TPAB$ft* 7 Vs . 


shift COMPLETE 


05030 


34 


§021 


3512 


.. . ^p*tS 434 ^-^V.^^'- 


No CONTINUE 


05031 


50 


1*301 


3513 


. ' ' ‘ ’ ’ 


R$HA*l ■ 


SHIFT A END OFF 


05032 


63 


5023 


3514 ’ 


; 'i 




ERROR JUMP 


05033 


10 


2170 


3515 


* ' 




SET AU TO 400000 


05034 


50 


434 $ 


3516 


■ '* 

I* •' . ' ■ . 1 is 


. |RSHAW 


CHECK SIGN EXT 


05035 


06 


2144 


3517 •* 


’ , '■ 't ' 


•' V'<JM 5 K«TFAtSpS^-^ . 


■ 7 S AU AND AL CORREi 


05036 


63 


5024 


352 q 






ERROR JUMP 


05037 

» 


55 

i 


4770 


3521 

$522 

,3523 


. Tf 4 *^ ' . 


::<pRP 6 *cAsevi 3 j?m 64 > 

; REMARK ♦E^PR ; P|SPUV> FMNPT« 


EXIT 

CODE IN C REG* 








3524 

."' 3525 . ' 


■y V ; 


REMARK*CpRREPT . PATTERN IN AU 

• .» 'remark* '^TTERN 

: °* . ' ■ 


AL 


05040 


00 


QO 0 O 


'■•'.3526 V 


>: TF 44 ; ; 


STORE AL 44 


05041 


70 


0064 


3527 ». 




. • * . - \ % >r' • ' ' % v '• • , y,* . 

' ;; v ' 


SET TYPE 0 UT BUFFER 


05042 


44 


2222 


3530 




Tp CODES FOR 44 


05043 


70 


0064 


3531 




ENTALK* 64 ; : ^#M:|&, ; • ' 


• ' * , 


05044 


44 


2223 


3532 




• 5 TRALtBuPf 2 .^^eif. ; 


* ... » 


05045 


10 


5050 


3533 


. • '• 


ENTAU*L 0 K't 5 ^t^»->': - ■ 


SET Up 


05046 


46 


2037 


3534 




.. strau»tf^.^^M $ . . 


ERROR DISPLAY 


05047 


12 


2144 


3535 


4 


entau*tpat?^::^ ; 


SET AL TO 777777 


05050 


44 


2253 


3536 


•fc 


s.tral»tp 4 |{|^^|; 


SAVE AL 


05051 


10 


2253 


3537 


< 


. entau*tpar 


SET AU EQUAL AL 


05052 


06 


2256 


3540 




Cmsk*tcoI ■'•>••? v . *&■>■. ,. 


IS AU CORRECT 


05053 


63 


5117 


3541 




JPNOT*TF 440 ? vp-ft‘i/ : ' % 


ERROR JUMP 


05054 


12 


2146 


3542 


* 


ENTAL*TpATI 


CLR AL 


05055 


44 


2253 


3543 


K 


STRAL*TpAR P ' 


SAVE AL 


05056 


10 


2253 


3544 


'* 


ENTAU*TPAR i,/ ■ 


SET AU EQUAL AL 


05057 


06 


2256 


3545 


■v 


cmsk*tcoi ■ 


IS AU CORRECT 


05060 


63 


§117 


3546 > 


v 


JpN 0 T^TF 44 Q j , v , .. 


ERROR JUMP 


05061 


12 


2150 


3547 




ental^tpats v : . . 


SET AL TO 252525 


05062 


44 


2253 


3550 




5 TRAL*TpAR 


SAVE AL 


05063 


10 


2253 


3551 




■ ENTAU*TpAR vf • 


‘ SET AU EQUAL AL 


05064 


06 


2256 


3552 




CMSK^TCOl >.¥-vd' .<:.:•■?». 


IS AU CORRECT 


05065 


63 


5117 


3553 




JP N 0 T * TF 4 4 0 ; 


ERROR JUMP 


05066 


12 


2152 . 


3554 




ENTAL*TpAT 3 4 V-i: Sfffik 


SET AL TO 525252 



) . • o 






W if) 

to m 

o S 



Ch 




r-v «Wwr 



■N0ISIA3H:#6^ 



I 



05067 44 3253 

05070 10 2253 

05071 06 2256 

05072 63 5U7 

05073 12 2154 

05074 44 2253 

05075 10 2253 

05076 06 2256 

05077 63 5117 

05100 12 2156 

05101 44 2253 

05102 10 2253 

05103 06 2256 

05104 63 5117 

05105 12 2160 

05106 44 2253 

05107 10 2253 

05110 06 2256 

05111 63 5117 

05112 12 2162 

05113 44 2253 

05114 10 2253 

05115 06 2256 

05116 61 5121 

05117 50 4722 

05120 76 1742 

05121 55 5040 



x 05122 00 PQQ 

05123 70 Q065 

05124 44 8222 

05125 70 Q060 

05126 44 8223 






( 



( 



PAGr 055 



• • • , 



3555 

3556 

3557 

3560 

3561 

3562 

3563 



3565 



'i 



'V 






3572 

3573 



3576 

3577 

3600 

3601 



3602 

3603 




3604 




3605 


TF440 


3606 




3607 


T. 


3610 


TS44 


3611 




3612 




3613 


’ ' ■ 


3614 


TS44 

7 


3615 




3616 




3617 




3620 


'v' , \[y ■ 



5TRAU*T • • 
ENTAU*TpAR^;l^^f.^ 

GM5K«TC0^s;^|^^.' 

xENTAU*TpA^h^f:.v,V 

CM5K*TCo1^^^'^ - : : 
JPN0WF4|9r»i ■ ; 

CMSK*TC0 :■ . 

ENTAUtTpAT^-^:tv^A''' ■ . 

entau*tpa^ ; S|^^::;, ,/ 

CMSK*TC0l^^«>V : ' 

jpNQT*TF440)^ v ^v< ■ 
ENTALATpATT^S^:.: 
5TRAU*TpAR^feCi' 
ENTAU*TpA5-;A»" ' • 
cmsk*tco1 -v^ 4- v :. ,. 

JPEQ*TF440t2 v:,. 



SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 
ERROR JUMP 
SET AL TO 770000 
SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 

error JUMP 

SET AL TO 007777 
SAVE AL 

SET AU EQUAj- AL 
•IS AU CORRECT 
ERROR JUMP 
5ET AL TO 707070 
SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 
ERROR JUMP 
SET AL TO 070707 
S*VE AL 

SET AU EQUAL AL 
IS AU CORRECT 
YES EXIT 



EXCHANGE REGS 
ERROR DISPLAY 
EXIT 



LSHA*22 ■ „ 

RJP*TFDIS. ; ,V;-|.^: . 'i 

IJP*TF44 V V 
PROG*SCoTT*S0APL64 
REMARK-ERROR PISPLAY' FUNCT. CODE IN C REG. 
remark-correct OR JNCoRRECT PATTERN IN AD 

remark-correct pattern or scal | c ^^ a ^ 0 * l 5044 



ENTALK*65 

STRAL*BUFFl 

EnTALK*60 

5TRAL*BuFF2 



SET TYPEOUT BUFFER 
TO CODES FOR 5044 



o> 
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05127 70 

Q§130 44 32*4 



05131 

05132 
051$$ 

05134 

05135 

05136 

05137 

05140 

05141 

05142 

05143 

05144 

05145 

05146 

05147 

05150 

05151 

05152 

05153 

05154 

05155 

05156 

05157 

05160 

05161 

05162 

05163 

05164 

05165 

05166 
05167 

05170 

05171 

05172 



70 0064 
44 3225 
12 5142 
44 3037 
36 QOQQ 
10 2146 
12 3166 
46 3306 

44 3307 
50 4442 
63 5147 
12 3263 
06 2144 
61 5^51 

76 2040 
65 5122 

12 0017 
42 3275 
02 2275 
63 5147 
10 2306 
12 2307 
50 4701 
56 2275. 

34 §140 
36 OOQO 
10 2144 
12 2167 
46 2306 
44 2307 
50 4442 
02 2144 

63 5147 
12 2173 



3621 

3622 

3523 



. v • . '‘>y 



3625 

3626 



3630 



TS4H 



3633 



3635 



3637 

$640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3660 

3661 

3662 

3663 

3664 



T5445 



*30%/ 



ENTAUK*64^‘-V::V 

STRA|.fBuFF4:\|ni*:; 
INTAI>Ts*tfcf & 

STRAU*TFX ; y^tey. 
entbk*o 

. ENTAU*TRATi;^!^:y 
ENTA^TpAilJiM^: -■ ' 
5TRAUtTsHI^|^ ; ^ 

; . -y ■ •• ’ ' 

BTRAUt 7 %$*>■• 

■ CMSK fTP XlmfM 

KS‘SI*1 



IMPISH 

ENTAU*00l7^i^%; 

STR8*SAVE6ygfr-' ; : 'W' 

CMAt*sAVE6^te^- 
JPNQT#TS443 {ill V 
ENT AU*T SH 
ENTAt*T5CpT :,r-v:‘ 

1$ha*1 ' 

BSK*$CCnT+* fy- : 

UP*TS441 v 
ENTBK*0 • 

ENTAU*TpAT ^ . ^7 
ENTAL*TpABlH : 

STRAU*TsH. 

STRAL*T5C0T 

5F*42 

CMAL*TPATy ;• ; - ■ 

JPNQT*T5443 

ENTAt*TpA63H 






PAGr 056 



SET UP 

ERROR DISPLAY 
CLR B 
CLR AU . 

SET AL TO 000001 
SAVE AU 

SAVE AL 
NORMALIZE 
ERROR JUMP 
CORRECT TO AL 
IS AU CORRECT 
YES CONTINUE 
ERROR DISPLAY 
ERROR EXIT 

SET AL EQUAL SCALE 
SET AL EQUAL B 

ERROR JUMP 
RESTORE- AU 
RESTORE 7 AL 
SHIFT PATTERN 
ALL PATTERNS CHECKED 

NO CONTINUE 
CLR B 

SET AU TO 777777 
SET AL TO 777776 
SAVE AU 
SAVE AL 
NORMALIZE 
IS AL CORRECT 

ERROR JUMP 
CORRECT TO AL 



f ) 
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05173 

05174 
05*75 
05*76 

05177 

05g00 

05301 

05202 

05203 

05204 

05205 

05206 



i- 

f 

' 05207 

05210 

05211 

05212 

05213 

05214 

05215 
I ,05216 

j t 052l7 

i: 05220 

! .05221 

| 05222 

j 05223 

I 05224 

; 05225 

i 05226 

05227 
1 05230 

05231 
i 05232 






PAG 1 '* 057 



06 2144 


3665 


• ■ \if 

i f ■ 


cmsk*tpa1!I tffMt 


63 5147 


3666 


• ; ' V 


■ JpN0T»T54p-fe;^i 


12 0017. 


3667 


: 'y : y 


... ENTAL*O0l 


42 §275 


3670 




v . , |t R B 1 * S 

i.v pMAL*SAyE&^» 


02 8275 


3671 




63 5147 


3672 




, ;jpnottts4|^M;;, 


10 2306 


3673 




;v-|ntau*tsi mmmm : 


12 2307 


3674 


[ : . Y !^” r ' >• 




50 4701 


3675 


■ - |»SNA*ll ! 


56 2275 


■' 3676 


V-; ; 




34 5165 


3677 






55 §122 


3700 


’ f : ' ' .Jy .$;• 

. '■* :• $ ■■ 

> •> . 





3701 

3702 

3703 



00 Q000 
70 0064 
44 2222 
70 QQ65 

44 2223 
10 5220 
46 2037 
36 0001 
12 2144 

45 2252 
10 2253 
06 2256 

63 5275 
36 0002 
12 2146 
45 2251 
10 2253 
62 5275 
36 0003 
12 2150 



3705 

3706 

3707 



3711 

3712 

3713 

3714 

3715 

3716 

3717 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 
3730 



RE#ARK*E*ftPR 

f*EMARK*CORRECT. PA 

ENTALK*64t',;A: ; i: ; 

STRAL*BU^f 1 *>’ 

ENTALK*65^:>V-V 

■ • ' • 

STRAL*BuFp2a^ 
E^TAU*L0Kt4 , . ' 
STRAU*TFX. ;£yM* 
ENTBK* 0 0 0 1 > • 
ENTAL*TpAT 
STRALBnPAR*!/ 

E N T A U ♦ T P A R: , iS$r 

cmsk*tcoi; 

sJPN0T*TF45p . 
ENTBK*0002' 
ENTAUfTpATl 
STRALB*TPAR*2 
ENTAUtTpAR 
JpAUNZ*TF450 
ENTBK*d003 
ENTAL*TpAT2 



IS AU CORRECT 
ERROR JUMP 
SET AL EQUAL SCALE 
SET AL EQUAL B 



ERROR JUMP 

RESTORE AU 

RESTORE AL 

SHIFT PATTERN 

AL)-' PATTERNS CHECKED 

NQ CONTINUE 

EXIT 



AY* FUNCT, cOOF IN C REG. 

T tE«N IN AU fi 
PATTERN IN AL ^ 

STORE AL + B 45 
SET TYPEOUT BUFFER 
TO COOES FOR 45 



SET UR 

ERROR OISPLAY 
SET B TO 1 
SET AL TO 777777 
SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 

ERROR JUMP 
SET B TO 2 
CLR AL 
SAVE AL 

SET AU EQUAL AL 
ERROR JUMP 
SET B TO 3 
SET AL TO 252525 



00 
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P AGs' 058 



05£33 

05234 

05235 

05236 

05237 

05240 

05241 

05242 

05243 

05244 

05245 

05246 

05247 

05250 

05251 

05252 

05253 

05254 

05255 

05256 

05257 

05260 

05261 

05262 

05263 
'05264 

05265 

05266 
Q5267 

05270 

05271 

05272 

05273 

05274 

05275 

05276 

05277 



45 


2250 


3731 


10 


2253 


3732 


06 


2256 


3733 


63 


5275 


3734 


36 


(JO 04 


3735 


12 2152 


3736 


45 


2247 


3737 


10 


225? 


3740 


06 


2256 


3741 


63 


5275 


3742 


36 


QQ05 


3743 


12 


2154 


3744 


45 


2246 


3745 


10 


2253 


•v; 3746 


06 


2256 


3747 


63 


§275 


3750 


36 


Q0OO. 


3751 


12 


2156 


3752 


45 


2253 


3753 


10 


2253 


3754 


06 


2256 


3755 


63 


5275 


3756 


36 


0001 


3757 


12 


2160 


3760 


45 


2252 


3761 


10 


2253 


3762 


06 


2256 


3763 


63 


5275 


3764 


36 


9002 


3765 


12 


2162 


3766 


45 


2251 


3767 


10 


2253 


3770 


06 


2256 


3771 


61 


5277 


3772 


50 


4722 


3773 


76 


1742 


3774 


55 


5207 


3775 




•ENTBK*OO0*#li®£- 
|NTA|.*Tp^f|0^: , 

STf^UB*TP^pES ; fe- 
Intact > 

. 1 *1 L.x.SA.- _ & •*: i-:v 

- - ■ I'M 

CmSK*T<W „ 

4PN0T*TF4|0j 
ENTBK^OO 

' ENTAU*TpAT^f%k • 

STRALB *TPA$r •" 

ENTAUfTpAR 
CMSK*TCol^ .. 

JPN0T#TF4|0^i:^( • 

< • '''■ • 

entbk*oooi 

ENT AL*TpAT6 
STRALB*TPAR*4 
ENTAU*TpARjK\ : v 
CmSK*TC01- 
JPNOT*TF450 
ENTBK*0002 
EMTAltTPATT^ j 




5TRALB*TPARf?'-' AC 

ENTAU*TRAR'-« ' ',•**■■ 

cmsk*tcoi-- v\:: ; V 

JPEQ*TF<*50*a. ; 
TF450 UHA*22 AC-y-'l 
RJP*TFDlS, : V/ 5- 
IJP*TF45 : 



SAVE AL . 

SET AU EQUAL AL 
IS AU CORRECT 
ERROR JUMP 
SET B TO 4 
SET AL TO 525252 

SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 
ERROR JUMP 
SET B TO 5 
SET AL TO 770000 
SAVE AL 

SET AU EQUAL AL 

IS AU CORRECT 
ERROR JUMP 
CLR B c 

SET AL c ;JO 007777 
SAVE AL 

SET AU C.QUAL AL 
IS AU CORRECT 
ERROR JUMP 

SET B TO 1 
SET AL TO 707070 
SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 
ERROR JUMP 
SET B TO 2 
SET AL TO 070707 

SAVE AL 

SET AU EQUAL AL 
IS AU CORRECT 
YES EXIT 
EXCHANGE REGS 
ERROR DISPLAY 
EXIT 



; ) 
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c 



v 



PA6 r 059 



J 



05300 

05301 
Q5302 

05303 

05304 

05305 

05306 

05307 

05310 

05311 

05312 

05313 
06314 

05315 

05316 

05317 

05320 

05321 

05322 

05323 

05324 

05325 

05326 

05327 

05330 

05331 

05332 

05333 

05334 

05335 



00 QQOQ 
70 0065 
44 2222 

70 QQ6Q 
44 2223 
'70 0064 
44 2224 
70 0065 
44 2225 
12 6316 
44 2037 

36 QOoi 
70 0000 
10 2166 
50 4501 

62 5323 
42 2275 
12 2275 
76 2040 

55 §300 

56 2201 
34 §316 
12 2170 
06 2256 

63 §322 
50 4501 
12 2166 

06 2256 
63 §322 
55 5300 



3777 

4000 

4001 



TS45> 



40p3 

4004 



4006 

4007 



4012 



4015 



4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4030 

4031 
4832 

4033 

4034 

4035 

4036 

4037 

4040 

4041 






T5451 



TS453 




m 



mi 




LEFT SHIFT AU 5045 
SET TYPEOUT BUFFER 
TO COOES FOR 5045 



PR06*SC0i;7*3.PAPL64 

REMARK*ERfMW PJSRLAY* FUNCT. C 0DE IN C REG. 
>REMARK«SH?ftett PATTERN IN AU . .. 

REMARK *5H^$0UNT in al 
0* :•--» ' • ' 

: ENTAUK^65^fe '• 

♦ STRAL*BUFf^^v;, 

v r • 

:.'§7RA^5Uftl^,:fe. - 

ENTAEK*6^1»ftm.-. . 

; STRAU^BuFfMj^r;. 

• ENTAUK*$^^^>-: «•/ 

. •?. $TRAI»*BuFipi^&^-'- 

; ENTAt*Ts4r ' 

§TRAttTFK 



TF46" 



ENTALK*0 „„ 

ENTAU*TpA$l > 

LsHAUftl J , 
JPAUNZ*L0K + 4,; r ; Hv: ; 

5 T R B * S A V E B< 

ENTAUSAVE9^xj; 

RJP^TSDIS,'. 

IJP*TS45 "ti&K ;/ 

BSK*TPAa6tl • 

JP*TS451 • 

ENTAL*TPAB2 

CMSK^TCOl 

JPN0T*T54§3. ' , 

L5HAU*1 - v 
ENTAL*TpABl, /? , 

CMSK*TCOl V ; 

JPN0T*TS453 > , ' 

IJP*TS45 • ■’ x ' 

PR0G*CAsEY*30APL64 
REMARK*ERROR 0J5PUAY» FUNCT, 



SET UP 

ERROR OISPLAY 

SET 0 TO 1 
CLR AL 

SET AU TO 000001 
SHIFT AU LEFT 1 

shift ok continue 
SET AL EQUAL B 

ERROR DISPLAY 

ERROR EXIT 
SHIFT COMPLETE 
NO CONTINUE 
SET AL TO 4QOOOO 
IS AU CORRECT 
ERROR JUMP 
TEST END AROUND 
CORRECT TO AL 

IS AU CORRECT 
ERROR JUMP 
EXIT 

CODE IN C REG* 









SHEET mi REVISION 
SB -10163 



PAGtr 060 



H 









4042 * 


REMARK^eP|RE0,t ’PATTERN IN 


AU ■ 








4043 '* 


REMARK* I N^ORRKjCT PATTERN 


IN At 


05336 


00 


9000 


4044 TF46 5 


. 0*,. ;:C 


STORE AU 46 


05337 


70 


Q064 


'4045 V '/ V 


ENTAU*64V-:>^ ; ..;. ? ... 


SET TYPEOUT BUFFER 


Q5340 


44 


2222 


4046 . * 


STRAU*0UF|M> - v 


TO CODES FOR 46 


05341 


70 


0066 


.4047 ••• * 


■ entalk*66 




05342 


44 


2223 


■4050.- . 


strau*buffIu^4'-?-, : 




05343 


12 


5346 


4051 : ; 


' SNTAL*LOK*f ’ 


SET UP 


05344 


44 


2037 


4052 . . * 

• • ' • / »- . 


. STRAL*TFX--§4^^: ; 


ERROR DISPLAY 


05345 


10 


2144 


. 4053 • ’ ^ ; 


" 3NTAU*TpAi]^^C ; 


SET AU TO 777777 


05346 


46 


2253 . 


4054 '• „v % 


• 5TRAU#TpARt^fWV 


SAVE AU 


05347 


12 


2253 


: 406.3 < ' ■' ■ 


lNtAL*TpAR^^^.' ■ 


SET AL EQUAL AU 


05350 


02 


2144 


-4056 " = 


\ CMAt*TPAT i r^:*'^: : ^>'..-: ■' . 


IS AL CORRECT 


05351 


63 5415 


- 4037 - : rl* 


'* ^PN0T*TF43^#^M : 


ERROR JUMP 


05352 


10 


2146 


4060 • 


' EHTAU«TpATi^ft^V"« ' 


CLR AU 


05353 


46 


2253 


4061 


5TRAU*Tp^gQr < : ■ . 


SAVE AU 


05354 


12 


2253 


4062 ' *\ f 


fNTAttTpA^llf^M- 


SET AL EQUAL AU 


05355 


02 


2146 


4063 


' • CMAt*TPATji^ft%f!; -1 


IS AL CORRECT 


05356 


63 


5415 


4064 4 




ERROR JUMP 


05357 


10 


2150 


4065 


ENTAU*TpAfj2i ; V^rv>' 


SET AU TO 252525 


05360 


46 


2253 


4066 * 


STRAU*TpAR; V-wi, 


SAVE AU 


05361 


12 


2253 


4067 


ENTAl*TRAR . 


SET AL EQUAL AU 


05362 


02 


2150 


4070 


CMAL*TPAT2 ■ 


IS AL CORRECT 


05363 


63 


5415 


4071 


JPNQT*TF460 ’ - v ;< 


ERROR JUMP 


05364 


10 


2152 


4072 j 


ENTAU^TpAT.3 Ji 


SET AU TO 525252 


05365 


46 


2253 


4073 


STRAUtTpAR 0>V> 


SAVE AU 


05366 


12 


2253 


4074 


ENTAL*TPAR 


SET AL EQUAL AU 


05367 


02 


2152 


• 4075 


CMAL*TPAT3 


IS AL CORRECT 


05370 


63 


5415 


4076 


JpNQT*TF46Q 


ERROR JUMP 


05371 


10 


2154 


4077 


ENTAU*TpAT4 


SET AU TO 770000 


05372 


46 


2253 


4100 


STRAU*TpAR ; 


SAVE AU 


05373 


12 


2253 


4101 


ENTAL*TPAR • 


SET AL EQUAL AU 


05374 


02 


2154 


4102 


CMAL*TPAT4; v. . 


IS AL CORRECT 


05375 


63 


5415 


4103 


v)PN 0T*TF460 .. j 


ERROR JUMP 


05376 


10 


2156 


4104 


ENTAU*TPAT9 


SET AU TO 007777 


05377 


46 


2253 


• 4105 '• 


\vStrau*tpar.;\^>: •• 


SAVE AU 



I) V; '' ■' ^ ) 1 \) 
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( 



05400 
05404. 
0 5402 

05403 

05404 

05405 

05406 

05407 

05410 

05411 

Q5412 

\ 

05413 

05414 

05415 

05416 



05417 

05420 

05421 

05422 

05423 

05424 

05425 

05426 

Q5427 

05430 

05431 

05432 

05433 

05434 

05435 

05436 

05437 



( 



( ^ 



4107 



12 2253 
02 2156 
63 5415 

10 2160 
46 2253 
12 2253 
02 2160 
63 §415 
10 2162 
46 2253 
12 2^53 



02 2162 
61 5416 k 4122 
76 1742 4123 

55 5336 124 



4113 

4U4 

4115 



. . f,. 

Vv 

■ ; ■ . r " 



4120 



to 

-ft: 



TF460 



4126 

4127 



• iftRih • • : ^ 

■. •••• ’ 

. ENW*TB*s#?iSMv , : 

■ aPNOT*TF4^0ipg^s 
.\ ; ENtAU«TpAT^i|p^ • 

. ; STRAU^TRA^f%»k ; --' ■ • 

• ENTAL*TpAfl:tp^ r .', • 

jPEQ*TP46(»t^,^- , ;=; 

RJP*TFDl5ptS" : ^.- . V . 

• IJP*TF4$ v^p!^^v 

REMAiK*E?ii|i§l^yV PUNQT. 
REMARK*Srt?Fr COUNT IN AU 

remark*shifteJ> pattern in AU 



PAGr- 061 



00 0000 


4131 


• V 

TS46 


• ' ■ . • 

0 * -WMv 


70 0065 


4132 


y 


' ENTALK*6S 


44 2222 


4133 


1 


STRAL*BUFFV 


70 0060 


4134 


* 


EnTALK*60 ; 


44 8223 


4135 


•r 


STRAL*BUFF2 ; 


70 0064 


4136 


* 


ENTALK*64 


44 2224 


4137 


s 


STRAL*BUFf,3 ; 


70 0066 


4140 


-I 


ENTALK*66 • 


44 2225 


4141 


v; 


.1 \ 

STRAL*BUFF4( 


12 5435 


4142 


• 


ENTAL*TS461 


44 2037 


4143 


nl 


stral*tfx 


36 0001 


4144 




ENTBK*1 


10 2146 


4145 


• 


ENTAU+TpATl 


12 2166 


4146 


• ■# 


ENTAL*TPAB1 


50 4601 


4147 


TS461 


lshal*i 


63 5442 


4150 




JpALNZ*L0K + 4 


42 2275 


4151 




strb*saveb 



C‘ 

‘ th ; 



SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 

SET AU TO 707070 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET AU TO 070707 
SAVE AU. 

SET AL EQUAL AU 

IS AL CORRECT 
YES EXIT , 

ERROR DISPLAY 
EXIT 

CODE. IN C REG* 



LEFT SHRIFT AL 5046 
SET TYPEOUT BUFFER 
TO CODES FOR 5046 



SET UP 

ERROR DISPLAY 
SET B TO 1 
CLRAU 

SET AL TO 000001 
SHIFT AL LEFT 1 
SHIFT OK CONTINUE 

SET AU EQUAL B 



Cb 






SHEET 459T REVISION 
SB-10163 




PAGr 062 



0544Q 

05441 

05442 

05443 

05444 



10 2275 
76 2040 

55 §417 

56 2201 
34 §435 



4152 

4153 



TS462 

' ■ ■% . 



ENTAU*S AypBv;, 

JJP#TS46>M$^A<^ 



4156 



ERROR DISPLAY 
ERROR EXIT 
SHIFT COMPLETE 
NO CONTINUE 



05445 


02 


2170 


4157 


t ■ \t‘ -V •' • . ‘ 

■ :'/■■■. .-'ty ■. 






IS AL CORRECT 


06446 


61 


§451 . 


416.0 «• 








YES CONTINUE 


05447 


10 


2170 


4161 : 




. 'X^NT AU*TpA^M^f||:':i;', : ; ■ 




CORRECT TO AU 


05450 


34 


§441 .... 


■'4162V.' 




: :>WTS*Hk . 




.ERROR JUMP 


05451 


50 


4601 


', ; 4!63-,r 


; ‘ ■ ft 

• -v I* ,v 






test end off 


05452 


02 


2166 


=' 4164 


•». ■ • • ■ t ■ . V 






IS AL CORRECT 


05453 


61 


§442 


4165 : V 


■ ' tyfaf. ?,Yf , ’• 

}’• • . . •• • . f. ... 


^■V ; «Q*TS46»#tfc|^ , 


’ • ■ 


YES EXIT 


05454 


10 


2166 


Mm 


• ] U ’’ • ^ \ 

• :V : . 


■*. ... ; ■ 




CORRECT TO AU 


05455 


34 5041 




• v. f< ; 

J-V 






ERROR JUMP 










. V TF4T . 


-fy pR06*CAsEt*36APL64 












: 4171 $ 
4172 






funot®; 
IN «U 


CODE IN C REG. 








4173 


.. 


REMARK*! Oft PATT E 


RN IN 


AL 


05456 


00 


0000 


4174 


• TF47; 


0 * ■ 




$toRE AU + B 47 


05457 


70 


0064 


4175 




■ r 




SET TYPEOUT BUFFER 


05460 


44 


2222 


4176 


' *,f VV- 

ij 


• : STRAL*BUFFl'?f^V;|v-. : ' 




TO CODES FOR 47 


05461 


70 


0067 


4177 


■ . V 


: entalk*6TIMQ : :1S? ' 






05462 


44 


2223 


4200 


n 


SfMAL*BUFi^^>V'V‘>. 






05463 


12 


5467 


4201 




ENT AL*L0Kt4 . V‘' r ' .v 




SET Up 


05464 


44 


2037 


4202 




STRAL+TFX> VN'; V;- 




ERROR DISPLAY 


05465 


36 


0001 


4203 




Entbk^oooi ‘V 




SET B TO 1 


05466 


10 


2144 


4204 




ENTAU*TPA1V 


*V^ 


SET AU TO 777777 


05467 


47 


2252 


4205 


. V 


■ straur*tpAR*1 'v.v 


h 


SAVE AU 


05470 


12 


2253 


4206 


% 


ENTAL*TpAR ,h;A-j*v'. 


V.J 


SET AL EQUAL AU 


05471 


02 


2144 


4207 




CMAL*TPAT VvVlTv- : 




IS AL CORRECT 


05472 


63 


5544 


4210 




JPNQT*TF47p V 




ERROR JUMP 


05473 


36 


0002 


4211 




entbk*ooq? •;;; r 




SET B TO 2 


05474 


10 


2146 


4212 




entau*tpati 




CLR AU 


05475 


47 


2251 


4213 




STRAUB*TPAR?2 , %• ■■ 




SAVE AU 


05476 


12 


2253 


4214 




■ ENTAL*TpAR ■ ;> v:. 




SET AL EQUAL AU 


05477 


63 


5544 


4215 




JPALNZ*TF47Q .■;« 




ERROR JUMP 


05500 


36 


0003 


4216 


\ ' 


• ENTBK*0003 V. ’V 




SET B TO 3 



Ob 



) 



I 

ft** SMWV &RW . 



) : 



SHEET 50C REVISION 
SB-10163 




( ' 



PAGF 063 



SET All TO 252525 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 4 

SET AU TO 525252 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 5 
SET AU TO 770000 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
CLR B 

SET AU TO 007777 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 

ERROR JUMP 
SET B TO 1 ML 

SET AU TO 707070 l> 

SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
ERROR JUMP 
SET B TO 2 

SET AU TO 070707 
SAVE AU 

SET AL EQUAL AU 
IS AL CORRECT 
YES EXIT to 

ERROR DISPLAY 



SHEET 5CF REVISION 
SB-10163 



P AGP’ 064 



05545 


55 


5455 


4263 


-5j 




EXIT 






4264 


‘ T.S47- 


PRO0*seojpi0.AP!*64 








, 


4265 


*■ ' 


.R&MARK*ER&aR'' ; 4>l$PLAY*' FUNCT 9 


CODE IN C RES* 




.■ 




4266 




REMARK*CORRE0-T OR INCORRECT 


PATTERN IN AU 








4267 




REMARK*lNCORRfr£T OR CORRECT 


PATTERN IN AU 


05546 


00 


0000 


4270 


*. T54.7f . 


0*' ", ' 


LEFT SHIFT A 504? 


05547 


70 


0065 


4271 


V 


y ENT*t,K ■ 


set typeout buffer 


05550 


44 


2222 


4272 


" v ' ■ •; % ; 

- ■ • - j . .* : *<; . ■ 


, “r y ‘ : . : -iv? \ 


TO; CODES FOR 5047 


05551 


70 


Q060 


• 4273 ' 


V. % ■ \ 






05552 


44 


2223 


W4 


■ *- • ' . Hi 


5^RAUPUPfi»f^: :■ 




05553 


70 


0064 


4275 ... 




■ . • . 




05554 


44 


2224 


; 4276 


*■’ ..•••/* V ’ . 




05555 


70 


0067 


4277 


’■/ H 


^•ENTRCK4>6Ti;^p\i^;.:; 




05556 


44 


2225 


4300 




STRAL+BuFF^for ' 


. M ■ 


05557 


12 


5563 


4301 




ENTaU*Ts4T|^;'«;>^'. 


SET Up 


05560 


44 


2037 


4302 ; 






ERROR DISPLAY 


. 05561 


10 


2146 


.4303 




ENTAU.#TpRTlf^# ; 4' ; -' : • 


CLR AU 


05562 


12 


2166 


4304 




ENTAL*TRA$M^f^‘' ? ” ; 


SET AL TO 000001 


05563 


50 


4722 


4305 


TS47i 


LSHA»22 


SHIFT A LEFT 22 


05564 


61 


5567 


4306 


JpAL2*U0Kt^i!V .> ' 


SHIFT OK CONTINUE 


05565 


76 


2040 


4307 


T547e 


. RJP*TSOlS:-^f^^\ 


ERROR DISPLAY 


i 05566 


55 


5546 


4310 


• . 


■ IJP#TS47 ; 


ERROR EXIT 


! 05567 


62 


5572 


4311 


>• 


■ jpaunz*lok*s •?> : • 


IS AU CORRECT 


05570 


12 


2166 • 


4312 




ENTAU*TpA9i; V\ • 

y.y \ -j*- ’■ • 


CORRECT TO AL 


05571 


34 


5565 


4313 




aP»T5472 ife’ V 


" ERROR JUMP 


: 05572 


50 


4722 


4314 




LSHA*22 ' 5 :-V. ;;;••• ••• 


SHIFT A LEFT 22 


05573 


62 


5565 


4315 




JPAUNZ*TS472 , 


ERROR JUMP 


1 05574 


02 


2166 


4316 


■k 


CmA|_*tPAB1 , 


IS AL CORRECT 


i 05575 


61 


5566 


4317 




JpEQ*TS472t|;V : " : . 


EXIT 


j 05576 


10 


2166 


4320 




£NTAU*TpAB5L/ V ;: • . 


CORRECT TO AU 


j 05577 


34 


5565 


4321 


V 


JP*T5472 


ERROR JUMP 


I 

i 






4322 


TF51 


PR0S*CASEY*30APU64 




* 

j 






4323 




• remark-terror display* funct. 


CODE IN C RE0. y 








4324 




REMARK*C0RRECT PATTERN IN Au 


1 ■ 


i 

i 






4325 




remark*incorrEct pattern IN 


al 


! 05600 

l 


00 


QQOO 


4326 


TF51 


o* ■ ■’./ 

. ■’ . , .• 
; v . . ? * s 

S • ’ *y 


SELECTIVE SET 51 


i • ■ ‘ ' 








.. . 


C 

**• 



SHEET 502 REVISION & 
SB-10163 



PAGP 065 



05601 


70 


0065 


4327 






056Q2 


44 


§222 


4330 






05603 


70 


0061 


4331 ‘ 


. V . , 


. ' 7 ‘ v 

ENTALK»6l|pJ>S^ 


05604 


44 


2223 


4332 ; 




. STRAL*BUFF?^L^ 


05605 


12 


§610 


. 4333 , 




/ENTAL*LDKt|ft^v.^ 


05606 


44 


2037 


4334 


■ : .> ‘ .. ' * ‘ 


STBAL+TFX«i^ 


05607 


12 


?146 


4335 v 


' t ; ;,J + 

<■ * * • 


. ENTAL*TpATl4#fe;i:. 


05610 


51 


2144 


4336 


. 1 ■ 


SLSET*TpATi$V“ 


05611 


76 


5637 


4337 ’ 


• ‘ 


• rjp*Tf5io",vsM;'V',U 


05612 


51 


2146 


... 4340 

» * 1 . 


■’ • 


SLSET4TpAtl'^; V 

: '’if"? Pylyv. 


05613 


76 


§637 


, 4341 




BJ§*TF5lO#ffe 


05614 


12 


2160 


4342 




. E N T A L * T p A T 6 , ;« 


05615 


51 


2162 • 


4343 






05645 


76 


§637 


4344 






05617 


12 


2162 


4345 




■ ENTAL*TPATT^£f^ 


05620 


51 


2160 


4346 r 






05621 


76 


§637 


4347 




• R JP*TF5 1 0^ : 'P®/'Wr 


05622 


12 


2150 


4350 




■ ENTAL*TpAJ2^f^ v ,';r ■ 

■■ 


05623 


51 


2152 


4351 


. • '+ 


SL5ETtTPAT3!p|#V 


05624 


76 


§637 


4352 


’ ' V 




05625 


12; 


2152 


4353 




ENTAL*TpAT3 iM'vi '* 


05626 


51 


2150 


4354 




SLSET*TpAT2 . 


05627 


76 


§637 


4355 


* 1 


RJP*TF510 ;• -z-‘: 


05630 


12 


2167 


4356 


v 


ENTAL*TpABt+l 


05631 


51 


2166 


4357 


‘ ) 


slset*tpabi 


05632 


76 


§637 


4360 


■ 


RJP*TF5lO • j 


05633 


12 


2166 


4361 




ENTAL*TPAB1 


05634 


51 


?167 


4362 


•* 


slset*tpabui 


05635 


76 


§637 


4363 




RJP*TF510 , 


05636 


55 


5600 


4364 




IJP*TF5l 


05637 


00 


0000 


4365 


TF510 


0*0 


05640 


02 


2144 


4366 




CMAL*TPAT 


05641 


63 


§643 


4367 




JPN0T*TF511 


05642 


55 


§637 


4370 


V 


IJP*TF510 


05643 


10 


2144 


4371 


TF5U 


ENTAU*TpAT 


05644 


76 


*742 


4372 


t 


; RJP*TFDIS 



SET TYPEOUT BUFFER 
TO CODES FOR 51 



SET UP 

ERROR DISPLAY 
CLR AL . 

SET WITH 777777 
TEST SET 
SET WITH oopooo 

TEST SET 

SET AL TO 7Q7070 
SET WITH 070707 
TEST SET 

SET AL TO 070707 
SET WITH 707070 
TEST SET 

SET AL TO 252525 

SET WITH 525252 
TEST SET 

SET AL TO 525252 
SET WITH 2^2525 
TEST SET 

SET AL TO 777776 
SET WITH 000001 
TEST SET 

SET AL TO 000001 
SET WITH 777776 
TEST SET 
EXIT 

ENTRANCE 
IS AL CORRECT 
ERROR JUMP 
EXIT CHECK 

CORRECT TO AU 

error display 



f 

\ 



C& 



\ 






SHEET 503 REVISION 
SB-10163 



PA6 r 066 



05645 55 $600 



437 * 

**375 



*■ I vip*TF5|^;#--; 

T551' ; t PROG*SCQTI i l , 30ApU4 
...4 '. be'mark*erhor . 9 J SPLAV f 

• • . REMARKtT|li;,:|';4E8?^TER 



ERROR EXIT 

FUNCT* CODE in c reg. 
NJLL HOLD THE SUM OR 

OF AN ADD OR SU8T A 



05646 


00 


QOOO 


44QQ 


fS51* 


Oti,.' ■ '&&&&&&> • . 


SKIP ON NO BORROW 


05647 


70 


Q065 


4401 . 






SET typeout buffe 


05650 


44 


2222 


4402 


• ■ $1* •' ; 


, $TRAL*BuTO^^ • 


TO CODES FOR 5051 


05651 


70 


QQ6Q 


4403 ■ 




■ : • 




05652 


44 


2223 


4404 > 


"r : 


■; STRAL*B.UF^^; V, 




05653 


70 


QQ65 ; 


4405 


V'v : \ 


■■ ENTALKHSr#Wl;IW ?; 




05654 


44 


2224 ■ 


44Q6 : 


- .•* v ■. <x‘ 1 * 






05655 


70 


0061 


4407 


■ l >, ' 


■ |N*AU*6i^«$P r 


* 


05656 . 


44 


2225 


4410 k: 




” STRAL*BuPp«»^*^v •••' 


.* * ' * 


05657* 


12 


5664 


4411 V 


.? ''V . • 


|NTAL*T5»I#»i^^te- • ; V- : 


SET UP • ' 


05660 


44 


8037 . 


4412 




5TR AL*TFK|^»m V;. . 


error display. 


05661 


10 


8150 


4413 


;V • i. ‘ i.t . ■' 


' ENT AU*TP*f#)W%W , 


SET AU TO 252525 


05662 


12 


8150 


4414 




• ENTAL*TpATg.^M, •• • 


SET AL TO 252525 


05663 


20 


2150 


4415 




ADDA*TPAT2 Ira ^ 


A+252525252525 


05664 


50 


5100 


4416 


* *Sr ’ 


5KPNB0*0 'trf •, 


CHECK NO SKIP. 


05665 


34 


5670 


4417 


n. 


. UP*L0K+3:|^| ; *^' : • 


CHECK OK 


05666 


76 


8040 


4420 


TS512 


RJPoTsOlSS^^V^v, 


ERROR DISPLAY 


05667 


55 


5646 


4421 


"1 




ERROR EXIT 


05670 


10 


8152 


4422 


y j 


entau*tpat3, 


SET AU TO 525252 


05671 


12 


2152 


4423 


1"}* 


ENTAL*TpAf 3 


SET AL TO 525252 


05672 


20 


2152 


4424 




ADDA*TPAT3 


A+525252525252 


05673 


50 


IlQQ 


4425 




SKPNB0*0 , :f ; 


CHECK FOR SKIP 


05674 


34 


5666 


4426 




jp»TS5i2 


ERROR JUMP 


05675 


10 


2150 


4427 


* 


ENTAU*TpAT2\;-<\ 7 


SET AU TO 252525 


05676 


12 


2150 


4430 


\ 


ENTAL*TpAT« T, 


SET AL TO 252525 


05677 


22 


8152 


4431 • 




5UBA^TPAT3 0 ; v 


A-525252525252 


05700 


50 


5lQ0 


4432 




SKPNB0*0 ‘ f 


CHECK NO SKIP 


05701 


34 


5703 


4433 




JP*L0K*2 . 


CHECK OK 


05702 


34 


5666 


4434 


*■ 


JP*TS512 ■ . 


ERROR JUMP 


05703 


10 


2152 


4435 




ENT AU*TpAf3f V. 


SET AU TO 525252 


05704 


12 


8152 


4436 


‘A 


ENTAL*TPAT3- \ 


SET AL TO 525252 






SHEET 504 REVISION G> 
SB-10163 



( 



\ 



05705 22 3150 

05706 50 §100 

05707 3<+ §666 

05710 55 §646 



4437 

4440 

4441 
4443 

4443 

4444 



TP 52'' 



4445, 

4446 



05711 


00 


QOOO 


4447 


05712 


70 


Q065 


4450 


P5713 


44 


2222 


4451 


05714 


70 


0062 


4452 


05715 


44 


2223 


4453 


05716 


12 


5721 


4454 


05717 


44 


2037 


4455 


05720 


12 


3144 


4456 


05721 


52 


2146 


4457 


05722 


63 


5747 


j*460 


05723 


52 


2144 


4461 


05724 


63 


5747 


4462 


05725 


12 


3160 


4463 


05726 


52 


3162 


4464 


05727 


63 


§747 


4465 


05730 


12 


3162 


4466 


05731 


52 


2160 


4467 


05732 


63 


§747 


4470 


05733 


12 


2150 


4471 


05734 


52 


2152 


4472 


Q5735 


63 


5747 


4473 


05736 


12 


2152 


4474 


05737 


52 


2150 


4475 


05740 


63 


5747 


4476 


05741 


12 


3166 


4477 


05742 


52 


3167 


4500 


05743 


63 


5747 


4501 


05744 


12 


2167 


4502 


05745 


52 


2166 


4503 



TF53> 



A-252525252525 
CHECK FOR SKIP 
ERROR JUMP 
EXIT 



SUBATTPAT? • : 

SKPNB0*0 . 

jptTS5i2'-f|. iv\ ■>;;» 

I JP*TS51 tfmf 
PR0G*CASEV*304Pl-64 
REMARK*El^|||^$PUy» PUNCT^ CODE IN C REG. 

remark*c^M®^Attern in - 

REMARK * I Np ORRl-pT PATTERN IN AL 
.0* ' . " ; %■% 

EHTALK*65^> 

STRAUBUF^l 

ENTALK*62: v ‘ 

STRAU*BUFP2 , , 

ENTAL*LOKt^>S: ( 

. • i .*} i '» i. :.*+?• 






stra^tfkIs^II-' 

luLiTPAf|i®^fe 

JPALNZ*TR52# ' 

5LCL*TPAT 
JPALNZ*TR52 : 
ENTAL*TPAT6 
SLCL*TPAT7 r 



>a>' . V 



JPAUN2*TR52 

ENTAL*TpAT7 

S|.CL*TPAT6 

JPALNZ*TR52 

ENTAL*TpAT2 

StCL^TPATS 

JpALNZ*TRS2 

ENTAL*TPAT§ 



SLCL*TPAT2 
JPALNZ*TR52 
ENTAL*TpABl v 
5UCU*TPAB1+1 
JpALNZ*TR52 

ental*tpabH1 

SLCL*TPAB1 



t, • • 



SELECTIVE CLEAR 52 
SET TYPEOUT BUFFER 
TO COOES FOR 52 



SET UP 



ERROR DISPLAY 
SET AL TO 777777 
CLEAR WITH OOQOOQ 
ERROR JUMP 
CLEAR WITH 777777 
ERROR JUMP 
SET AL TO 707070 
CLEAR WITH 070707 



ERROR JUMP 

SET AL TO 070707 

CLEAR WITH 707070 

ERROR JUMP 

SET AL TO 252525 

CLEAR WITH 525252 

ERROR JUMP 

SET AL TO 525252 



CLEAR WITH 252525 

ERROR JUMP 

SET AL TO OOOOOl 

CLEAR WITH 777776 

ERROR JUMP 

SET AL TO 777776 

CLEAR WITH OOOOOl 



PAG' 



V ) 

067 



%»*.• 
;■<.< . 



OD 






SHEET, §605 REVISION 
SB-10163 



PAG- 



06 B 



'.'TV* \ 5 



05746 


61 


5751 


4504 


■ 


05747 


10 


2146 


4505 


imz 


05750 


76 


1742 


4506 > 




05751 


55 


§711 


4507 


'• " s 




4510 


T55&* 








4611 


. • ’>*• 








4512 


i : '• "• :■>, . 

]•;, \ 








4513 '/"a 


\ ■ j- .-Uj,. 

1 : '* • ‘ : ■’*'* ’• 


05752 


00 


QQQO 


4614' : 


; T55^ 



ENTAUf TpAt£Cf,~ >' • 
RJP*TFDIS^M^v, - 

•■■„ IJP«TF82 :■■ 

P&O0*SCQTfrt*5jH.!Pl** . 

. 'REMARK*E8R.qR"P|SPU¥f FUNCT 

■ Mnmmmnm 



; . RE^ARKnHEfliyiPE QUOTIENT 

> 40 #. . "'.''>^^'^ 4 ,': 

•V,’ iNTAl,K : *6i|^^^-- " 

• : ; .5TRAl,*0UFFl44' : ' -'4 ; • 

■- r ENTAUK*60^|p% ; v '^ ...: 

, STRAU*BuPfmf • 
ENTALk*65 

§TRAU*BMPf^Svft4 
ENTAUK^A^^tei#^ • 

5TRAU*BUFFH'^#^-v; 

ENTAL*Ts52g||4!'-'r4- 

STRAL*TFX.-4 ! ; |'r&i. ; ; 

SKP0V*0 VaSfc^u#;.- 

E N T A U * T P A T 1 v ^ ' .'I ; ; ; ■ 

ENTALK*3777:4;4:- .,. 

fNTAU*TpATi;'^- > 



Q£753 

05754 

05755 

05756 

05757 

05760 

05761 

05762 

05763 

05764 

05765 

05766 

05767 

05770 

05771 

05772 

05773 

05774 

05775 

05776 

05777 
06000 

06001 

06002 

06003 



70 0065 
44 2222 
70 Q060 
44 2223 
70 Q065 
44 2224 

70 0062 
44 2225 

12 5772 

44 2037 
50 §20Q 
12 2146 
70 3777 
10 2146. 

26 2166 
50 5200 
34 5776 
76 2040 
55 5752 
70 0OOQ 
10 2166 
26 2166 

50 5200 
34 5774 
55 §752 



4515 v 

4516 

4547 

4520' 

4524 



4523 

.4524 

4525 

4526 

4527 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 



T5522 



TF53 



1 ) 



DIVA4TPAB* v 
SKP0V*0 
JP*L0K+3 ! ; 

R JP*TSO|$';' ; '' 
IJPKTS52 
ENTALK*0 \V/<! 
ENTAU*TpA0jl: 
DX VA*TPAB1 ?> 



^v. 



) 



EXIT CORRECT 
CORRECT TO AU 
ERROR DISPLAY 
EXIT 

» CODE IN C REG* 

IN All 

IN AL 

SKIP ON OVERFLOW 
SET TYPEOUT BUFFER 
TO CODES FOR 8052 



SET UP 

ERROR DISPLAY 
CLR OVER 
CLR AL 

SET AL TO 00377?£; 
CLR AU 

DIV A BY 1 
CHECK NO SKIP 
CHECK OK 
ERROR DISPLAY 
ERROR EXIT 
CLR AL 

SET AU TO 000001 
DIV A BY 1 



5KP0V*0 ;; : . 

JP*TS522 -r-v ; 

I JP*TS5JS V : ' 

PrOG*CAseV**5 : PAPL64 

remark*errOr display? funct« code in c reg* 



CHECK FOR SKIP 
ERROR JUMP 
EXIT 



in m 

w ac 

1 nt 
h> m 
O H 
M 

o u> 

pS 

po 

u 

H 

O 

z 



Cfc 



) 












06021 

06022 

06023 

06024 

06025 

06026 
06027 
06030 






PAGF 1 



4550 



REMARK^.Q^|(!|>pTTERN IN AU 



06004 


00 


opoo 


.4551 

4552 V-:.TP53* ' 


REMARK^ INCORRECT; PATT 

0* •: . 


E«N IN AL 

SELECTIVE COMPLEMENT 53 


06005 


70 


0065 


4553 




SET TYPEOUT BUFFER 


06006 


44 


2222 


4554 • -V* 


S T R A L * B U F R 1 i vf;. ■ 


TO CODES FOR 53 


06007 


70 


0063 


4555 ' "t , 


ENTApK*6 . 


’ 


06010 


44 


2223 


4556- ‘ 


STRAU*8uFR|^'P^;V' 




06011 


12 


6014 


• 4557 , * 




SET UP 


06012 


44 


2037 


' 4560 ' . . v *' ;• 


•?. STRAt*TFX^i|f^i?v>v- 


ERROR DISPLAY 


06013 


12 


2146 


4561 -4 


ENTAL*TpAfJ##\-y 


CLR AL 


06014 


53 


2144 


•• 4562 ■ 41 . 


SLCP*TPAT^^^,.v‘' 


COMP WITH 777777 


06015 


02 


2145 


-4563 


CMAL^TPATtle^;/-,! . 


IS AL CORRECT 


06016 


63 


6047 


4564 


. : JpNOTtTR?^®^- ■ 


error jump 


06017 


53 


2146 


' 4565 . 


• SLfcFWAtim^ t a? :>■■■ 


COMP WITH 000000 


06020 


02 


2145 


4566 • • ' 


; CMAL*TPAT4i#^.t.rV- : 


IS AL CORRECT 



63 

12 



>047 

1160 



53 2162 
02 2144 
63 6047 
12 2152 
53 2150 
02 2144 



4567 

4570 

4571 

4572 

4573 

4574 

4575 



ENT At-*Tp At 

; : ,* 

sucp*tpat®^SS: ' 

tMAL*TPAT'-%^?^.’- w 

JpNoWR53l 
ENTAL,fTPAT3 
SLCP*TPAT? 

CmAL*TPAT 






. X' 



5ET AL TO 707070 

COMP WITH 070707 
15 AL CORRECT 
ERROR JUMP 
SET AL TO 525252 
COMP WITH 252525 
IS AL CORRECT 



! 06031 


63 


6047 


4577 




JPN0T*TR531 V 


ERROR JUMP 


j 06032 


12 


2150 


4600 1 




ENTAL*TpAT2 • V 


SET AL TO 252525 


! 06033 


53 


2152 


4601 




SLCP*TPAT3 


COMP WITH 525252 


| 06034 


02 


2144 


4602 




cmal*tpat. 


IS AL CORRECT 


i 06035 


63 


6047 


4603 




JPN0T*TR531 - ' V ;; 


ERROR JUMP 


; , 06036 


53 


2150 


4604 


'H 


SLCP*TPAT2 


COMP WITH 252525 


1 06037 


02 


2152 


4605 




CmAL*TPAT3 ' 


IS AL CORRECT 


! - 06040 


63 


6045 


4606 




JPN0T*TR532 


ERROR JUMP 


06041 


12 


2146 


4607 




ENTAL*TpATl 


CLR AL 


, 06042 


53 


2152 


4610 




SLCp*TPAT3 


COMP WITH 525252 


06Q43 


02 


2153 


4611 


M 


CMAL*TPAT3+t 


IS AL CORRECT 


' 06044 


61 


6051 


4612 


U 


JPEQ*TR53it2- ■; 


CORRECT EXIT 


06045 


10 


2153 


4613 


TR532 


ENTAU*TpAT3H 


CORRECT TO AU 



* .. 






( ) 

069 



SHEET 5Q7 REVISION 8 
SB-10163 



V 



PAGr* 070 






06046 


34 


£050 


4614 ’ 


m 


06047 


10 


2144 


4615 ■ 


TR53| 


06050 


76 


1742 


4616 


•Sir 


06051 


55 


£004 


4617 V 
' 4620 
4621 
4622' ; ;■ 
4623 rv 


• . • -v 

: ■% 


060^2 


QQ 


0000 


4624, . 


T553* 


06053 


70 


0065 


- 4625 . . ; 




06054 


44 


2222 


4626 V 


• ' \ 
; V v ' ’jJ. 


06Q55 


70 


0060 


4627 !' 


: W; 


06056 


44 


2223 


’ 4630 i : 


r;: ;V* . 


06057 


70 


0065 


- 4631 , 


‘ • •' vTJ 1 


06060 


44 


2224 


4632 




06061 


70 


0063 


' 4633. 


’ ; - 


06062 


44 


2225 


4634 


/ *: •• • • •’% 


06063 


12 


607a 


4635 




06064 


44 


2037 


4636 


; „ ■ *\ 


06065 


50 


5200 


4637 ‘ 


! -■ 
A; ' 


06066 


10 


2146 


4640 




06067 


70 


0000 


4641 




06070 


10 


2166 


4642 


4 


06071 


26 


2166 


4643 


s. 


06072 


50 


5300 


4644 




06073 


34 


6076 


4645 


>• 


06074 


76 


2040 


4646 


TS53 2 

\ 


0,6075 


55 


£052 


4647 




06076 


70 


3777 


4650 


A 


06077 


10 


2146 


4651 


"* 


06100 


26 


2166 


4652 


’ 


06101 


50 


5300 


4653 




06102 


34 


£074 


4654 




06103 


55 


£052 


4655 

4656 

4657 


TS54 

r 



? y ->\ 

EnTAU#TPA? 4^^. v: • 
RaP#'TFDjS;|^gii;|- ■ 

I jP*TF53lf^%fe|^ j ; 

pRp0*5CoT^3PAPt6»4 

'■REWARK*eRB.0.R.^S-5P^AV? F.UNCT e 

,RPMARK*T«C ©IV I DC REM A I NP|R 

remark* THI y^lV l ©a ©PPT ienV 

o* ' . xMW&'sC- ' ‘ 

=' ENtiAtK# >:4 : - : : • 



DISPLAY 
CORRECT TO AU 
ERROR DISPLAY 



EXIT 



reg- 




STRAl*0UFpi||ppp. 



ENTAlK*63‘ 

$tral*buf 
ENTAL*Ts8|g^ 
STRAL*TFK : v.' 

; v :?r 



y- 1 :; . 



■y} 



SKP0V*0 
ENfAU*TpAT| v 
ENTALK*0 ■ \/ ■ 

ENTAU*TpABl ; 

DIVA*TPA©yv ;i ,^' 
SKPN0V*0 '• ■’ 

JP*L0K*3 >V ;, v; • .■•■/ 

rjpptsois ■$% ' ; 

3JP*TS5>3 ?&.;•$£ 

ENTALk*37T 
ENTAU#TpATl J?.r ‘ 
DlVA*TPABt'y’.'r A'..:;: 

skpnov*o :v.;v -:•••. 

JP*TS532 

j jp# Js53 '‘‘k •• •* 
prog*scott*soapl&s» 



CODE IN C 
IN AU 
IN AL 

SKIP OVERFLOW' 5053 
SET TYPEOUT BUFFER 
TO CODES FOR 5053 



SET UP 

ERROR DISPLAY • 

CLR OVER 
CLR AU 
CLR AL 

SET AU TO 000001 
DIV A BY 1 
CHECK FOR NO SKIP 
CHECK OK 
ERROR DISPLAY 

ERROR EXIT 
SET AL TO 003777 
SET AU TO OOOOOQ 
DIV A BY 1 
CHECK FOR SKIP 
ERROR JUMP . 

EXIT 



remark*errqr display? funct 0 code in c reg* 






****#>##* 



) 



SHEET 5#8 REVISION 
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( 




( 



! 

t 



(■ 

I, 

i; 



I 



9 

i 

r 



i 

i 



4660 

4661 

06104 00 QP00 4660 

06105 70 0065 4663 

06106 44 2222 4664 



06107 


70 


0060 


4065 


06H0 


44 


2223 


4666 


06lU 


70 


0065 


4667 


06112 


44 


2224 


4670 


06113 


70 


0064 


; t 4671 


06114 


44 


2225 


'4672 


P6U5 


12 


0122 


< 4673 


06116 


44 


2037 


4674 


06117 


36 


0000 


4675 


06120 


10 


2144 


4676 


06121 


70 


Q003 


4677 


06122 


50 


5400 


4700 


06123 


34 


6126 


47Q1 


06124 


76 


2040 


4702 


06125 


55 


0104 


4703 


06126 


50 


4601 


4704 


06127 


56 


2201 


4705 


06130 


34 


0122 


4706 


06131 


67 


6135 


4707 


06132 


70 


7774 


4710 


06133 


36 


0000 


4711 


06134 


34 


0122 


4712 


06135 


36 


0000 


4713 


06136 


70 


0001 


4714 


06137 


50 


0400 


4715 


06140 


34 


0124 


4716 


06141 


50 


4601 


4717 


06142 


56 


2201 


' 4720 


06143 


34 


0137 


4721 


06144 


67 


6125 


4722 


06145 


36 


. 0000 


4723 


06146 


70 


i 7776 


4724 





T5545 



t. 



in 

REMARK' IN AL 
0* ' ■ 

. ENTAU*65^&: oi ; • 

■ stra^u^M;-:; 

ENTAUK*6gffi|||f"^ : ; • . 

STRAL^BuFf^f ., 
ENTALK*6 • 

■ STRAL*BUP|feffp^ - 

entauk*64|^|;:#'=- : 

' STRAU*BuFF^.fetf,‘¥-;- ■ ■ 

■ ENTAL*Ts545«^r*' " 



STRAL*TFXg^; : ^;' 




UP*L0K+3 
RJPfTSDjS? 
IJF*TS54 
Lshal*i 

0SK*TPAB*H$ 
Jp*TS545-2 V 
JpALNG*L0K+4 
ENTAiK*7774 
ENTBK*0 ; 
JP*TS545-2 
ENTBK*0 
ENTALK*! : j ; 



TS544 







SKP0DD*0 '^V-vlv -••• . 

jp*ts54s 

LSHAL*! '■' , >:c ■ :•* 

BSK*TPAB6+1 . 
Jp*TS544 'V-L?v 
JpALNG*TS545t| >• 

ENTBK*0 

ENTALK*7776, ' 



PAGF 



•SKIP ON ODD PARITY 5054 
SET TYPEOUT BUFFER 
TO CODES FOR 6054 



SET UR 

ERROR DISPLAY 
CLR B 

SET AU TO 777777 
SET AL TO 000003 
CHECK NO SKIP 
CHECK OK 
ERROR DISPLAY 
CRROR EXIT 
SHIFT PATTERN 

ALL PATTERNS CHECKED 
NQ CONTINUE % 

TWO PASS CHECK 
SET AL TO 777774 
SET B TO 0 
60 TO CHECK 
CLR B 

SET AL TO I 

CHECK FOR SKIP 

ERROR JUMP 

SHIFT PATTERN 

ALL PATTERNS CHECKED 

NO CONTINUE 

EXIT 

CLR B 

SET AL TO 777776 



071 









SHEET REVISION . 

SB-10163 



PAG- 072 



06147 


34 6137 


4725 


At 

y 


.... ‘-f •. 

■ >. ' / ■ : 




continue check 






4726 


TF55 


pRO0*CAsEY*3PAPt64 










•• 47§7 


4 *' * ' ‘ 


. REMARK*CRRPR' DISPLAY* 


FUN^T? 


CODE IN CRES. 






4730 


. ■, ‘ <i\ . 


; : •• *N 


iti OR AL 




06150 


00 QOOO 


. 4731 


, ■ : TF55 4 1 


V P*, 




-INDIRECT JUMP 55 


06151 


70 0065 


4732 


• : . ' v . % ' 






SET TYPEOUT BUFFER 


06152 


44 §222 


4733 '' :• 


■ ■ ty : 






TO QODES FOR 55 


06153 


70 0065 


4734'' 


. ... .. ■. • % 1 


■ ■ 






06154 


44 §225 


4735 


• ■ • 4 4 








.06155 


12 6160 


4736 


. .. I ' - i '' & ' 


■ ■ 




SET UP 


'06156 


44 §037 


4737 


V $ *• 


■ ' 5TRAi*Tr».t®^e% V ■ 




ERROR DISPLAY 


06157 


12 2146 


4740 


, 1 '• *•; ;i>! •' 


ENTAMTp^H^^I. 




CLR AL 


06160 


55 6161 


.4741 


‘ . 


i jp*loku 




TEST JUMP 


06161 


00 6164 


4742 


’• J * " 






ADDRESS 


06162 


34 6173 : 


4743 




■ JP*TR55 . . 




ERROR JUMP 


06163 


00 6167 


: 4744 


TF551 


• 0*TF552tl“®P!!*t^f ' 




ADDRESS 


06164 


55 6163 


4745 








TEST JUMP 


06165 


34 6173 


4746 




jp*tr55 




ERROR JUMP 


06166 


00 6172 


4747 


TP552 






ADDRESS 


06167 


55 6166 


4750 




IJP*TF552'^te V '‘^- 




TEST JUMP 


06170 


34 6173 


4751 




JP*TR55 




ERROR JUMP 


06171 


00 6174 


4752 


TF553 


0*TR55+f^|;^ V 




ADDRESS 


06172 


55 6171 


4753 




IdP<*TF553Ci¥^r^ 




TEST JUMP ’ 


06173 


76 1742 


4754 


TR55 


Rjp#TFDisf •;! v :;- • - 




ERROR DISPLAY 


06174 


55 6150 


4755 




ijp*tf 55 V; y: ’ 




EXIT 






4756 


TS55 


Pr06*5CqTT*3QAPL64 










4757 




REMARK*ERR0R DISPLAY* 


FUNGI » 


CODE IN C REG. 






4760 




remark*pariyy pattern 


IN Ad 








4761 




remark^parity. pattern 


IN AL 




06175 


00 oooo 


4762 


T$55 


0 *; 




SKIP ON EVEN PARITY 


06176 


70 0065 


4763 


> 


ENTALK*65 ' 




SET TYPEOUT BUFFER 


06177 


44 2222 


4764 




STRAL*BUFFt ■ . 




TO CODES FOR 5055 


06200 


70 0060 


4765 




ENTALK*60 






06201 


44 2223 


4766 




STRAU9UFF* •*. 






06202 


70 0065 


4767 




ENTAUKF65 7 : : "v . 






06203 


44 2224 


4770 


. 1 If. l - Y?4 


STRAf#9UFF3.v- 











) 



aw^- wa**!* ** * 1 *^^ ■** - 



‘is.'-KSnct 



SHEET 510 REVISION 
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( 

\ 



PAG^ 073 



0&204 


70 


0065 


4771 ' 




ENTALK*656:if^ • 


06205 


44 


2225 


4772 


. » ‘ ‘ «* 


STRAU»buFF4^^;:;V' 


06206 


12 


6213 


4773 




ENTAUTS58MM1^V. :• 


06207 


44 


2037 


4774 




$TRAU*TFX^|i igi^v • 


06210 


36 


QQOO 


4775 




ENTBK*0 


06211 


10 


2144 


4776 


. 


ENTAUWTpAT^!^,:^-^ 


06212 


70 


pool 


4777 


* . ‘ ‘ <$ 


. ENTAJLK*».rm ' 


06213 


5Q 


5500 


5000 


TS551 

M,- 


5KPEVN*0 :||g 


06214 


34 


6217 


5001 


■ 


JP*L0Kt3 


08215 


76 


2040 


500? 


TS552 


RJP*TSDlSM^.v;/v; ; , 


06215 


55 


6175 


* 5003 


4 - 


iup*ts55 


0(j>2l7 


50 


4601 


5004 ; 




• USHAUl 


06220 


56 


2201 


5005 




■ BSK*TpAB6'#r|V% .; : yr- ;■ 


06221 


34 


6213 


5006 




jp*ts55im|J;V-vv':;;; . , 


06222 


67 


6226 


5007 




UP ALNG*LPKt4l0v' 


06223 


36 


0000 


5010 


•*- 




06224 


70 


7776 


5011 




EnTALK*777|!9^^!; : 


06225 


34 


6213 


5012 




UPWTS551 , 


06226 


36 


0000 


5013 


• 


entbk*o 


06227 


70 


0003 


5014 


» 


ENTALKtOO03N‘!:' v 


06230 


50 


5500 


5015 


TS556 


SKPEVN*0 


06231 


34 


6215 


5016 




UP*TS552 V - 


06232 


50 


4601 


5017 




. lshal*i 


06233 


56 


2201 


5020 




BSK*TPAB6*1.: • 


06234 


34 


6230 


5021 




JP+TS556 ■■ V 


06235 


67 


6216 


5022 


\ y 


JpALNG*fS552tl ■ .... 


06236 


36 


QQOO 


5023 




ENTBK*0 ' ' 


06237 


70 


7774 


5024 




ENTALK*7774 


06240 


34 


6230 


5025 




JP»TS556 ; ""/ 








5026 


TF56 


PR06^C AsEV*30ApL,64 








5027 




remark*error display* 








5030 




REMARK*CORRECT PATTER 








5031 




REMARK*INC0RR6CT patt 


06241 


00 


0000 


5032 


TF56: 


0* 


06242 


70 


0065 


5033 


■ • ■ 


ENTALK*65 


06243 


44 


2222 


5034 


. ■ ' 
* :IW 


STRALWBuFF.1 



SET Up 

ERROR DISPLAY. 

SET @ TO 0 
SET AU TO 777777 
SET AL TO 000001 
CHECK NO SKIP 

CHECK OK 

error display 

ERROR EXIT 

SHIFT PATTERN 

Ai-L PATTERNS CHECKED 

NO CONTINUE 

TWO PASS CHECK 

CLR B 

SET AL TO 777776 
CONTINUE CHECK 
CLR 8 

SET AL TO X 

CHECK FOR SKIP 

ERROR JUMP 

SHIFT PATTERN 

ALL PATTERNS CHECKED 

NO CONTINUE 

EXIT 

CLR B 

SET AL TO 777774 

continue check 

CODE IN C REG. 



B SKIP 56 

SET TYPEOUT buffer 
TO CODES FOR 56 















SHEET Sil REVISION 
SB-10163 



06244 70 0066 

06245 44 2223 

06246 12 6251 

06247 44 2037 

06250 36 0000 

06251 56 2156 

06252 34 6251 

06253 42 2275 

06254 12 2275 

06255 10 2156 

06256 02 2157 

06257 63 6310 

06260 36 pOoo 

06261 56 2226 

06262 34 6261 

06263 i*2 2275 

06264 12 2275 

06265 10 2226 

06266 02 2226 

06267 63 6310 

06270 36 0000 

06271 56 2171 

06272 34 6271 

06273 42 2275 

06274 12 2275 

06275 10 2171 

06276 02 2171 

06277 63 6310 

06300 36 0000 

06301 56 2242 

06302 34 6301 

06303 42 2275 

06304 12 2275 

06305 10 2242 

06306 02 2242 

06307 61 6311 



: ' 3 

Mr******!^ nr** . . - 



5935 


? * 


ENTALK*66‘%.^ .. 




5036 




5TRAU*0UFf|.^;;^- ; '', . • ' 




5037 


'i 




SET Up 


5040 


■ ; " v -ft ■ 


• 5TRAU#TF.)t^||^? . ' 


ERROR DISPLAY 


5041 


• "v 


entbk*o 


CLR b 


5042 


% ■ 


9SK*TpATa^v|^^ , f': / 


SKIP ON 7777 


5043 • 


■ 


JPtLOK^V 


continue skip 


5044 


■ • , >*v 


strb*sav^%^^4> • : 


SET AL EQUAL B 


5045 


•• - 






5046 > ... 


:: • 


ent au*t ‘f&i - 


correct to au 


5047 


' : it 


:» * >,X‘ V -. *■ ' 

3 CMALWATB*f*|^ & . 


IS AL CORRECT 


5050 




• 4PNOT*T*$0Qj^ 4 ^4> . 


ERROR JUMP 


5051 




ENTBK*0. 


CLR B 


5052 




BSKftpAK 

• vlP*L0K-l3^1^^# • 


SKIP ON ?020 


5053 




continue skip 


5054 

5055 




stfmsMRiMkMm ?* . 

EnTAL*SA VPplf 1 ' 

w ‘ •- ; I( m • 


SET AE EQUALB 


5056 




CORRECT TO AU 


5057 


.is 


CMAL*TPAK3.4pSir i 3.' 


IS AL CORRECT 


5060 




JPNOT*TF5aft3N;^^^-' 


ERROR JUMP 


5061 


Entbk*o 'ytiPlS? 


CLR B 


5062 


V 


BsK*TPAB2tt^;r1'^'H; 


SKIP ON 505 


5063 


•! 


JP*L0K-1 ■>• • • 


CONTINUE SKIP 


5064 


* ‘ft 


5TRB*SAVEB: 


SET AL EQUAL B 


5065 




entausaveb 


CORRECT TO AU 


5066 




ENTAU*TpAB2il 


5067 




CMAL*TPAB2H‘ 


IS AL CORRECT 


5070 


*». 


JPN0T*TF560 


ERROR JUMP 


5071 


•Y 


entbk*o 


CLR B 


5072 




BSK^TPAS3. ■ 


SKIP ON 2 


5073 




JP*L0K-1 :r 


CONTINUE SKIP 


5074 




STRB^SAVEB f . 


SET AL EQUAL B 


5075 




ENTAU*5AVEB .1 




5076 


t 


ENTAU*TpA$3 £.•••, 


CORRECT TO AU 


5077 


1 


Cmal*tpas3 


IS AL CORRECT 


5100 


■ * 


JPEQ*TF560t$ . 


YES EXIT 



• • - 



m to 
W X' 



m 

H 



O 



<: 

M 

to 

M 

o 

23 



(P 




f 



) 



(' ( ■ c, 

.. :/ • ' /. • . . PAGf 075 



06310 


76 


1743 


6101 


TF560 




ERROR DISPLAY 


06311 


55 


6241 


5102 


• .. v . • 


UPfTF56.-iK#' ... 


EXIT 








5103 


TF57'. .< 


PR0QKASE^-3P^64 








\ 


6104 ' 


/ V 


. remark»e?||9 ;:P|$fmy» funct. 


CODE IN C REG* • 








51P5 




• i; REMARK^COlli'lfi PATTERN IN A U 


• 








5106 


fa 


remarkmncorr£$t pattern in 


AL 


06312 


00 


Q0QO 


5107 


TF571* 


0* ^ . 


INDEX SKIP 57 


06313 


70 


0065 


Slip 


•\ ’ & 


. ' ENTAUK*6^|^.^ ; 


SET TYPEOUT BUFFER 


06314 


44 


2222 


5111 


• . ’ . . « > 
*• ;V 


•;'-5TRAl69UgP®|^C 


TO CODES FOR 57 


06315 


70 


Q067 


5112 


' s') 


.ENTAU*-6T«4:^V^ 




06316 


44 


2223 


5113 


’ 


STRAL»BuF^fteT4 : 3- 




06317 


10 


2146 


• 5114 • 




ENTAU*TpAT,i . 


CORRECT TO AU 


06320 


12 


2156 


5115 


,v • * • • 


ENTAU*TpA|^|®i®; 


SET AL TO 007777 


06321 


44 


2253 


5116 




STRAUtTpA^iW^^V .. 


SET INDEX 


06322 


57 


2253 


5117 


TF570 


isKfTPAR . 


SKIP ON INDEX 


06323 


34 


6322 


5120 






CONTINUE SKIP 


06324 


12 


2253 


5121 




ENTAL»TpAt%ft#^i# " 


SET AL EQUAL FINAL 


06325 


63 


635<4 


5122 






ERROR JUMP 


06326 


12 


2234 


5123 




entau*tpak6M^« ; 


SET AL TO 2525 


06327 


44 


2253 


5124 




STRAL*TpA 


SET INDEX 

\ . ' 


06330 


57 


2253 


5125 


*i£ 


1SK4TPAR 


SKIP ON INOEX 


06331 


34 


6330 


5126 


* K 


vjp^uoK-i 


continue skip 


06332 


12 


2253 


5127 


to 


EnTAL*TPAR , 


SET AL EQUAL FINA^ 


06333 


63 


6354 


5130 


ft 


JPALNZ*TR57 


ERROR JUMP 


06334 


12 


2240 


5131 


'> 


ENTAL*TpASl . n- -. ‘v 


SET AL TO 17 


06335 


44 


2253 


6132 


/ 


strau*7par?;^-.;. : ": 


SET INDEX 


06336 


57 


2253 


5133 


x- 


isk*tpar I--- 


SKIP ON INOEX 


06337 


34 


6336 


5134 




jp*lok-i 


CONTINUE SKIP 


06340 


12 


2253 


5135 


N 


.. ENTAL*TPAR'^,'. ■••• 


SET AL EQUAL FINAL 


06341 


63 


6354 


5136 


■%. 


. JPALNZ+TR57 


ERROR JUMP 


06342 


12 


2144 


5137 




ental*tpat :.V£v.-: 


SET AL TO 777777 


06343 


44 


2253 


5140 


*• 


S T R A L ♦ T p A R ^ »* T 


SET INDEX 


06344 


57 


2253 


5141 




ISK^TPAR 


SKIP ON INDEX 


06345 


34 


6344 


5142 


s. 


Jp*L0K“l /V# . 


CONTINUE SKIP 


06346 


12 


2253 


5143 




ental*tpar • - 


SET AL EQUAL FINAL 


06347 


63 


6354 


5144 


V 


JpALNZ*TR57 


ERROR JUMP 
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06350 


44 2253 


,5145 


. •• * 


STRAL*TpAP-.'r : yy,:.! ■?., 


SET INDEX 


06351 


57 2253 


5146 


. .. > 


•ISKFTPAR, ^$4^ ,'y/ • 


SKIP ON INDEX 


06352 


34 6354 


5147 


.1- ' ^ 


. JP*TR57 . 


ERROR JUMP, 


06353 


55 6312 


5150 


. 1 . ■ ; . ' N .t ' 


- IJP*TF57 - ■ 


EXIT 


06354 


12 6322 


5151 




• /rE(y|TAi.#TFft||^u^,, . 


SET UP 


06355 


44 2037 


5152 


; k 




ERROR DISPLAY 


06356 


76 1742 


5153 






DISPLAY 


06357 


55 6312 


5154 

5155 

5156 


■rr-fktw. 


■ . ‘ r '|*lFtTF8T • 

•■‘-•R^M6*SC0TT»3,9|pL6»f. : 

REMARK*ERR0R PlSPtAY FPNC 


ERROR EXIT 
CODE IN C REG 



06360 

06361 

06362 

06363 

06364 

06365 

06366 

06367 

06370 

06371 

06372 

06373 

06374 

06375 

06376 

06377 
0,6400 



00 0000 
70 0066 

44 2222 
70 0060 
12 6370 
44 2037 
76 2276 
10 2146 
60 6373 
76 1742 

55 6360 
10 2166 
60 6371 
50 4501 
57 2306 
34 6374 
55 6360 



v, ; 






06401 44 2223 



06402 00 0000 

06403 70 9065 

06404 44 2222 



3165 

5166 

5167 

5170 

5171 

5172 

5173 
517^ 

5175 

5176 

5177 
620Q 
5201 
52Q2 

5203 

5204 

5205 

5206 

5207 

5210 

5211 



y V % 

TF60* 

y 

Y- 

h 

TF6O4 

T56Q' 



TS60 



) 






.. R.& pipings*™ n. ? ? straw 4 

i At 



ENTAULoKf* 

S'f : RAL*TF^i^^v^. 

R^P*TFSMl‘atM^^n 
emtau#tpat •• . 



ENTAUfTpAT.l 

jpauz*uok4H«i;v^ • 

RJP*TFDl5^t^-.v--- 



.. ,4 - .. 

•-.Vj. w;; it/ 



JUMP AU ZERO 60 
SET TPEOUT BUFFER 

TO CODES FOR 60 

SET Up 

ERROR DISPLAY 
SET Up FOR SHIFT 
CLR AU 

TEST FOR JUMP 
ERROR DISPLAY 



IJPATF60 

EMTAU*TpABiyy,|.-' '.< t 
JPAUZ*TF602 v'^' : - 

LSHAU*1 " 

xsk*tsh 4 & y:y?-.' ; -r 
JP*TF604 tl i-'.-'K ■ 
ijp*tf6o y.'yy. ,• 
PR0 S#SCoT|*303PL64 

REMARK*ERROR OlSPtAYr PUNCT® 
stral*buFF2 

REMARK ♦CORRECT PATTERN IN AU 
REMARK* INCORRECT PATTERN IN AL 

0* v-- ; - 

ENTALK*65 . 

STRAt*BuFfl. 



ERROR EXIT 

SET AU TO 000001 

TEST NO JUMP 

SHIFT PATTERN 

ALL PATTERNS CHECKED 

NO CONTINUE 

EXIT 



CODE IN C REG- 



ROUND A 5060 
SET TYREOUT BUFFER 
TO CODES FOR 5060 



) 
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( 



06405 


70 


Q060 


5212 


* v 


entalk*6Q/K : -:^v; " 


06406 


44 


2223 


5213 


■V 


ENTAU*66. . . 


06407 


70 


0066 


5814 


• * *11 


06410 


44 


2224 


5215 


, ‘ ft- -y . . 


ST8AL*BUPp^py 


06411 


70 


0060 


5216 


; ■' ' ' 


-•EnTAU*6Q%^%>?^, 


06412 


44 


2225 


5217 


- M . ; 




06413 


12 


$417 


5820 


*-• ; • -j \ 

' ; 1 - ; 


•|NTAL*LOK>j^g^^ . 


06414 


44 


2037 


5221 


'.‘V* $1 


STRAUTFXp^;^ v; . 


06415 


12 


2144 


. 5222 - 


■ 'ft 




06416 


10 


2261 


52231 




ENTAU^TC03^f-'.--v 


06417 


50 


6000 


5224 ’ 




RND*0 ; . 


06420 


02 


2170 


522$ 




, CMAL*TPABpte^>^ • 


06421 


61 


6425 


5826 




- JPEQ^L0K44^%^ J 'i-{': •; 


06422 


10 


2170 


5827 




' ENTAU*TpA$|®-vi v 


06425 


76 


2040 


5830 


TS 602 


. RJP*TSDlS-,;^;<.' 

; i ” . : p * . :V' k '• 


i 

I 06424 


55 


6402 


5231 




IJP*TS60 


[ 06425 


10 


2144 


$232 






06426 


50 


6000 


5233 




RND*0 . 

• CMAL*TPATV^;'^'-. {!• '■ \ 


! 06427 


02 


2146 


5234 




06430 


61 


6433 


5235 


. . 


JPEQ*L0K*3;M’>;>S,;' \ 


! 06431 


10 


2146 


5236 


1 - . 


ENTAU6TpA|*^;tow • 


L 06432 


34 


6423 


5237 


«* 


JP*TS602 


j 06433 


10 


2261 


5240 


• 


ENTAU*TC03 


j 

j 06434 


50 


6000 


5241 


• *■ 


RND*0 


j 06435 


02 


2261 


5242 


“ 


CMAL*TC03. . 


‘ 06436 


61 


6424 


5243 




JPEQ*TS602 + 1 


! 06437 


10 


2261 


5244 




* ENTAU*TC03 , 


i 06440 

i ■ 

1 

j 


34 


6423 


5245 

5246 

5247 

5250 

5251 


TF6i' 


JP*TS602 

PROG*5COTT«30APL64 
REMARK*ERf^OR pISPLAY* 
REMARK*NO DISPLAY IN 

i 

remark*shiftep, patter 


1 06441 


00 


QOOO 


5252 


TF6i 


0* ■ ; , 


1 06442 


70 


0066 


5253 




ENTALK*66 


• 06443 


44 


2222 


5254 


y 


STRAL*BUFF1 


06444 


70 


QQ61 


5255 




ENTALK*6l V 



PAG'" 



077 



SET UP 

ERROR DISPLAY 
SET AL TO 777777 
SET AU TO 377777 
TEST ROUND 
IS AL CORRECT 
YES CONTINUE 
ORRECT TO AU 
ERROR DISPLAY 

ERROR EXIT 
SET AU TO 777777 
TEST ROUND 
IS AL CORRECT 
YES CONTINUE 
CORRECT TO AU 
ERROR JUMP 
SET AU TO 377777 

TEST ROUND 
IS AL CORRECT 
EXIT 

CORRECT TO AU 
ERROR JUMP 

CODE IN C REG* 



JUMP AL ZERO 61 
SET TYPEOUT BUFFER 
TO CODES FOR 61 



05 



'A* 
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06445 


44 


2223 


5256 




• •’ K "V ' - 




06446 


12 


6452 


• 6257. 




ENTAL*LOKt^ : -&> 


SET Up 


06447 


44 


2037 


5260 


; . V 


‘ STRAL*TFX ■ 


ERROR DISPLAY 


06450 


76 


2276 


5261 




. H JP*TFSH]l: $••&' ■<£ 1 


SET UP SHIFT 


06451 


70 


Q000 


5262 






CLR AL 


06452 


61 


6455 


5263 


• * 




TEST FOR JUMP 


06453 


76 


1742 


5264 


TF612 


r jp*tfD i 


ERROR DISPLAY 


06454 


55 


6441 


5265 




IJP*TF61^^:;h.:X 


ERROR EXIT 


06455 


70 


Q0Q1 


5266 


4 


ENTALK*i.^M2’.^ v; 


SET AL TO 1 


06456 


61 


6453 


5267 


TF614 




TEST NO JUMP 


06457 


50 


4601 


5270 




ISHAL*1 


SHIFT PATTERN 


06460 


57 


2306 


5271 




1SK*TSH ■ 


ALE PATTERNS CHECKED 


06461 


34 


$456 


5272 




^P'*TF6l4'V,’^>t:| : ?r'T'', 


NO CONTINUE 


06462 


55 


6441 


5273 






EXIT 








5274 


T561 


PROS*SCOTT*50FPU4 










5275 ’ 




REMAPK*ERBl?i,P|SFI",AY» FUNCT $ 


CODE IN C REG* 








5276 




REMARK*CORR^TFATTERn in Au 










5277 




REMARK*|R!C0RRECT. PATTERN in au 


06463 


00 


qooo 


5300 


TS61 


o* . ■•"i..; v- 


COMPLEMENT AL 5061 


06464 


70 


0065 


5301 




ENTAUK*65 ■ 


SET TYPEOUT BUFFER 


06465 


44 


2222 


5302 




STRAL*BUFFl 


TO CODES FOR 5061 


06466 


70 


0060 


5303 




EnTALK*60 




06467 


44 


2223 


5304 




STRAL*BUFF2 




06470 


70 


Q066 


5305 




EnTALK*66 




06471 


44 


2224 


5306 




STRAL*BUFF3 




06472 


70 


0061 


5307 




ENTALK*6l 




06473 


44 


2225 


5310 




STRAL*BUFF4 




06474 


12 


6477 


5311 




£NTAL*L0Kt3 


SET Up 


06475 


44 


2037 


5312 




stral*tfx 


ERROR DISPLAY 


06476 


70 


7777 


5313 




ENTALK*7777 


SET AL TO 777777 


06477 


50 


6100 


5314 




CPAL*0 


TEST FUNC 


06500 


61 


6504 


5315 




JPALZ*LqK+4 


CHECK OK 


06501 


10 


2146 


5316 




ENTAU*TpATl 


CLR AU 


06502 


76 


2040 


5317 


TS612 


RJP*TSDIS 


ERROR DISPLAY 


06503 


55 


6463 


5320 




UP*TS6i 


ERROR EXIT 


06504 


71 


0001 


5321 




AD0ALK*000l 


AL ♦ 1 



) ' , ) 






) 
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06505 


50 


6100 


5322 




CPAL*0 


TEST FUNC 


06506 


02 


2167 


5323 




CMAL*TPAB1U 


IS AL CORRECT 


06507 


61 


6503 


5324 




JPEQ*TS6l2tt 


EXIT 


06510 


10 


2167 


5325 


/l 


ENTAU*TPABU1 


CORRECT TO AU 


06511 


34 


6502 


5326 




jp*TS6i2 


ERROR JUMP 








5327 


TC61 


PROG*5CoTT*30APL64 










5330 




REMARK*ERROR PlSPLAY* FUNCT* 


CODE IN C REG* 








5331 




RE-MARK *N0 DISPLAY IN AM 










5332 




remark*correct pattern IN AL 




06512 


00 


0000 


5333 


TC61 


0* 


JUMP EQUAL 61 


06513 


70 


0066 


5334 . 


t? 


ENTALK*66 Vv 


SET TYPEOUT BUFFER 


06514 


44 


2222 


5335 




STRAL*BU FFl 


TO CODES FOR 61 


06515 


70 


9061 


5336 




ENTACK*6l \ N 




06516 


44 


2223 


5337 




5TRAL*BUFF2 ■ ; 




06517 


12 


6523 


5340 




ENTAL*L0Kt4 ; 7 ; ' . 


SET Up 


06520 


44 


2037 


5341 




STRAL*TFX _ ; •> V. 


ERROR DISPLAY 


06521 


12 


2146 


5342 




E NT AL * Tp AT ' 


CLR AL 


06522 


02 


2147 


5343 




CMAU*TPAT1+| 


SET EQ DESIG 


06523 


61 


6526 


5344 




JPEQ*L0K+3 ; ; 


TEST FOR JUMP 


06524 


76 


*742 


5345 


TC612 


RJP*TFDIS 


ERROR DISPLAY 


06525 


55 


§512 


5346 




IJP*TC61 


ERROR EXIT 


06526 


02 


2150 


5347 




CMAL*TPAT2 


CLR EO DESIG 


06527 


61 


6524 


5350 




JPEQ*TC612 


TEST NO JUMP 


06530 


55 


§512 


5351 




IJP*TC61 


EXIT 








5352 


TF62 


PR0$*SC0TT*30Ap|_64 










5353 




remark*error display* funct. 


CODE IN C REG* 








5354 




REM ARK* SHIFTED PATTERN IN AU 










5355 




% REMARK*NO DISPLAY IN AL 




06531 


00 


0000 


5356 


• TF62 


0* 


JUMP AU NOT ZERO 62 


06532 


70 


0066 


5357 




ENTALK*66 


SET TYPEOUT BUFFER 


06533 


44 


2222 


5360 




STRAL*BUFF1 


TO CODES FOR 62 


06534 


70 


0062 


5361 




ENTALK*62 




06535 


44 


2223 


5362 




STRAL*BUFF2 




06536 


12 


§542 


5363 




ENTAL*L0K*4 


SET UP 


06537 


44 


2037 


5364 




strahtfx 


ERROR DISPLAY 


. 06540 


76 


2276 


5365 




RJPtTFSHl 


SET UP SHIFT 
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06541 

06542 

06543 

06544 

06545 



06546 

06547 

06550 

06551 

06552 

06553 

06554 



10 §146 
62 6544 
34 6546 
76 *742 
55 653* 



5366 

5367 

5370 

5371 

5372 



•( 

% 

1 



. 7 : 



■ i 



10 2166 
62 6551 
34 6544 
50 4501 
57 §306 
34 6547 
55 6531 



5373 

5374 

5375 

5376 



TF624 



JpAUNZ*Tf$? 
JP*L0W\ W 

'lNTAU*Tpll0ili'^^ !r ' 




:^v7> 



<Cvi T 



5400 



? i ■ } *;• 







LsHAU*i 
ISK*TSH 
JP#TF624I 
ijpnF62¥i^f^w 
pRO0*sco|||^f^^ ■■ 

RtMARK*E^0R: ; '6|Sp(.AY» FUNCT* 

remarkhncorrEG.t fatter n *n 



06555 


00 


Q0OO 


• V# “ V ' 

5406 


• T$62 




06556 


70 


Q065 


,5407 


"t ' • ' * ' ■« 


ENTALK*65'^ 


06557 


44 


§222 


5410 




■ $TPAL*BUFpl 


06560 


70 


9060 


5411 




'EMTAlK*604> 


06561 


44 


2223 


5412 




STRAL*BuFFf; 


06562 


70 


Q066 


- 5413 


-*V 


ENTALK*664'i 


06563 


44 


2224 


5414 




STRAL*BuFp3 


06564 


70 


0062 


5415 


•fc 


ENTALK*62 


06565 


44 


2225 


5416 


* 


STRAL*BuFF4 


06566 


12 


9571 


5417 




ENTAL*L0Kt3 


06567 


44 


2037 


5420 


: -L 


STRAL*TFX 


06570 


10 


2144 


5421 


' £ 


ENTAU*TpAT 


06571 


50 


9200 


5422 


Li 

* «r 


CPAU+O 


06572 


60 


6576. 


5423 




JPAUZ*L0K74 


06573 


70 


OOQO 


5424 




ENTALK*0 


06574 


76 


2040 


5425 


T5622 


RJP*TSDJS' 


06575 


55 


6555 


5426 


** 


IJP*TS62 


06576 


10 


§166 


5427 




ENTAU*TpA5l 


06577 


50 


9200 


5430 




cpau*o 


06600 


70 


7776 


5431 


i i 


ENTALK*7776 


06601 


06 


2144 


5432 




CMSK*TPAT -v 



0x; 
?$£»* 1 






> 






CLR AU 

TEST NO JUMP 
CHECK OK 
ERROR DISPLAY 
ERROR EXIT 

SET AU TO 000001 

TEST FOR jump 

ERROR JUMP 

SHIFT PATTERN 

ALL PATTERNS CHECKED 

NO CONTINUE 

EXIT 



CODE IN C REG» 

AU 

COMPLEMENT AU 5062 
SET TYPEOUT BUFFER 
TO CODES FOR 5062 



SET UP 

ERROR DISPLAY 
SET AU TO 777777 
TEST FUNC 

CHECK OK 
CORRECT TO AL 
ERROR DISPLAY 
ERROR EXIT 
SET AUT T0000001 
TEST FUNC 

CORRECT TO AL do 

IS AU CORRECT 



) 
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PAGF 



06602 

06603 



06604 

06605 

06606 
Q66Q7 
06610 
06611 
06612 

06613 

06614 

06615 

06616 
06617 
06620 
06621 
06622 

06623 

06624 

06625 

06626 
06627 



06630 

06631 

06632 

06633 

06634 



( 



( 



081 









63 £574 


5433 


• , . *k 


55 6555 


5434 


. • <■ ■■ "V 




5435 






5436 • 


: ' "‘- r 




5437 - 


^ • 




5440 


■ - > . n V 


00 oooo 


5441 V: 


TF63*\ 


70 0066 


5442 ; 




44 2222 


5443 


v ' Vi.' 


70 0063 


5444 r 


; ' 


44 2223 


! 5445 . 


• -a 


12 6615 


5446 




44 2037 


V 6447 




76 2276 


5450 , 




70 QOOO . 


5451 


. ■ 1 *■ . . 


63 6617 


5452 


'• . . -fr. ' . 


34 6621 


5453 


" -- • 


76 17^2 


5454 


■ trwf. 


55 6504 


5455 


* i . 


70 0OO1 


5456 




63 6624 


5457 


TF634 


34 6617 


5460 


■’yt 

■*r 


50 4501 


5461 


* 


57 2306 


5462 


% 


34 6622 


5463 


S 


55 6604 


5464 


L 




5465 


TS63 




5466 


v ' 




5467 






5470 






5471 




00 QOOO 


5472 


TS63 


70 0065 


5473 • 


1, 


44 2222 


5474 




70 0060 


5475 




44 2223 


5476 


1 



ERROR JUMP 
EXIT 



IJP*TS 62 

pR00«SC0?TfjF|A^ft4 _ , 

REWARk*ERROR ;0!5PtAVf FIJNCT, CODE IN C REG< 
REMARK*NO PISPLAV IN AO 
^ R E M A R K * 5 P A T I E B N IN At • 



04 



■ av. 



. ENTAl s K466^giS;;- 

. ■ 'STRAL4BUFf^^i-;. v v 

• ENTAtK*63.^fe^ ; ^ ; 

,• STRAtr*BUFf«M^P,' : 

r - ■ 

stral*tfx> 

RJP4TFSHII 



• : •• jp*lqk+3 

RJP*TFDI ■ 

'mpptfos mmmM', 

ENTAU40O||l ; ;f%^^. ■ 

JpALNZ*L0Rt2^. Sf ;.l^ 

JP*TF63g 



JUMP At NOT ZERO 53 
SET typeout BUFFER 
TO CODES FOR 63 



SET UP 

ERROR DISPLAY 
$Ef UP SHIFT 

CLR AL 

TEST NO JUMP 
CHECK OK 

error-display 

ERROR EXIT 
SET AL TO 000001 
TEST FOR jump 
error JUMP 



• v W-> 



SHIFT PATTERN 

ALL PATTERNS CHECKED 

NO CONTINUE 

EXIT 



LSHAL*1 ' 

ISK4TSH 

JP*TF634 MiM 
IJP4TF6S ; " 

PR0G*SC0TT»S0APL64 
REMARK*ERROR.PlSPLAY» FJNCT. CODE IN C REG* 
REMARK^THE PATTERNS In AU and AL 
REMARK*SHOULP be ,|QUAL 



SETADR*5026 
0+ “ 
ENTALK*65 
STRAL*BUFF1 
ENTALK*60 
STRAL*BuFF2 ' 



complement a 

SET TYPEOUT BUFFER 
TO CODES FOR 5063 



Oo 
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06635 

06636 

06637 

06640 

06641 

06642 

06643 

06644 

0664& 

06646 

06647 

06650 

06651 

06652 

06653 

06654 

06655 

06656 

06657 
06660 
06661 



06662 

06663 

06664 

06665 

06666 
06667 

06670 

06671 

06672 

06673 

06674 



( 



70 0066 
44 2224 
70 Q063 
44 §225 
12 6645 
44 2037 
12 2150 
VO 2150 

50 630Q 
02 2152 
61 6652 
76 2040 
55 6630 
06 2144 
63 6650 
50 6300 

02 8150 
63 6650 
06 2144 
63 6650 
55 6630 



5477 

5500 

5501 

5502 
§503 
6504 
5505 



5507 

5510 

55U 

5512 

5513 






% 



. V < 

. 

•v ■ 



TS632 



ENTALKH&Vv':'^ 

STRAUBUFF^4‘^> 

ENTAU*U0KH#5-? ! i» .< • ■ ■ 

StRAU*TFK' ^;^:’ ; 

ental*tpats^|%c:v\ ■ 
ENTAU»Tp4Tl-tCr^V- ' 

cpA*o . ;&;fl 

■ JPEQ*LOKtfefe^vV : \ v 



5515 

5516 

5517 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 




JpNOT* 

CpAtO 



izmmw, 




SET UP 

ERROR DISPLAY 
SET AL TO 252525 
SET AU TO 252525 

TEST FUNC 
IS AL CORRECT 

YES continue 

ERROR DISPLAY 
ERROR EXIT 
IS AU CORRECT 
ERROR JUMP 
TEST FUNC 



IS AL CORRECT 
ERROR JUMP 
15 AU CORRECT 
ERROR JUMP 
EXIT 



TC63 



00 0000 


5530 


TC63 


0* . 


70 Q066 


5531 




ENTALK*66 . 


44 8222 


5532 


X 


STRAL*9UFF1. ' 


70 0063 


5533 




ENTALK*63 


44 2223 


5534 


* 


STRAL*BUFF2 i ' 


12 6673 


5535 




• ENTAL*L0Kt4 ,V: 


44 8037 


5536 




* STRAL*TFX: 


12 2166 


5537 




ENTAL*TPAB1-,' 


02 2146 


5540 


* ' 


CmAL*?PAT1 


63 6676 


5541 


'fe, 

K: 


JpN0T*L0Kt3f: 


76 1742 


5542 


TC638 


■ h .RJP*TFOlS.;.vV;-: 



CMALATPAT«#|W,y.- ; 

JPN0T4>TS6|?|OT|^' 

Cmsk^tpat^^.^ . 

JPNQT*TS6j^::^* ; ,;- 
ijp»ts63 

PROO*SCOTT«30APL64 

remark*error display* funct® code in c reg® 

REMARK*NO PfSPj-AY IN AU 

REMARK*C0RRECT pattern IN At 

™ JUMP NOT EQUAL 63 

t SET TYPEOUT BUFFER 

TO CODES FOR 63 



SET UP 

ERROR DISPLAY 

SET AL TO 000001 
SET UNEG DES1G 
TEST FOR JUMP 
ERROR DISPLAY 



) 



\$r j. ? v 






to 
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06675 

06676 

06677 
06700 



06701 

06702 

06703 
Q67D4 

06705 

06706 

06707 
06710 
067U 
067U 

06713 

06714 

06715 

06716 



06717 

06720 

06721 

06722 

06723 

06724 

06725 

06726 

06727 
06730 



55 6662 


5543 


S 


IJP*TC 63 


02 2166 


5544 


; *i. 


cmal*tpab ^;, £ ; 1 : 


63 6674 


5545 


V 


■ UPN 0 T*TC 65 B Vr • '?■ Y 


55 §662 


5546 

5547 
5550 


•V 

; TW 

■ . f 


. 1 JP*TC 63 ^ ' . 

PR 0 G*SCQTT* 30 APL 64 
. REMARK*ERROR DISPLAY# FUNCT * 


• 


3551 " 

5552 




. 1 remark*coprect pattern in au 
< > RE'MARK^NO^I^AT ! IN. 


00 Q 00 O 


5553 


: TF 645 


fv- • 


70 0066 


• 5554 ■ 


_ t*V?- 


• • ■;* * ' •' •• 


44 2222 


" 5555 




. STRAUBuf^^i-f ' 


70 Q 064 


5656 - 




■ • • 


44 2223 


5557 




■ , STRAt^ B UFF^:lp%T;'. . 


12 0711 


5560 






44 2037 


5561 > 




10 2172 
64 6714 


; 5562 
5563 






76 1742 


> 5564 , 


rmss 


. . • 1 '• 

IJP*TF 64 ^f:-;.^Vv .r- • 


55 6701 


5565 




10 2160 


5566 




ENTAU*TrAT 6 jrj ■ 


64 6712 


5567 




jpAUP*TF 6 <f 2 , V 


55 6701 


5570 

5571 

5572 

5573 

5574 


4 

TF 65 


I JP*TF 64 ,,-'V v ^ : < . 

PR 0 G*SC 0 tTt 30 ApL 64 
REMARK*ERROR PISPWAY* FUNCT, 

remarking display in au 

REMARK^CQRREC.T PATTERN IN AL 






00 0000 


5575 


TF65- 


0* 


70 0066 


5576 




ENTALK*66 


44 2222 


5577 


.%• 


STRAL*BUFFi " 


70 0065 


5600 


•i 


ENTALK*65 ;r : 


44 2223 


5601 


t 


STRAL*BUFF2 


70 6727 


5602 


*■* 


ENTALK»L0Rt3 


44 2037 


5603 




5TRAL*TFX. - 


12 2172 


5604 




/ ENTAL*TPAB3 


65 6732 


5605 




* JPALP*LoK43 


76 1742 


5606 




g. RJPfTFDlS 



ERROR EXIT 
CLR UNEQ DESKS 

TEST NO JUMP 
EXIT 

CODE IN C REG* . 



JUMP AU POSITIVE 
SET TYPEOUT BUFFER 



TO CODES FOR 64 



SET Up 

ERROR DISPLAY 
SET AU TO 312132 
TEST FOR JUMP 
ERROR DISPLAY 

ERROR EXIT 
SET AU TO 707070 
TEST NO JUMP 
EXIT 

CODE IN C REG* 



JUMP AL POSITIVE 65 
SET TYPEOUT BUFFER 
TO CODES FOR 65 



SET UP 

ERROR DISPLAY 
SET AL TO 312132 

TEST FOR JUMP 
ERROR DISPLAY 



f 

r 



r 



1 

j 

i 



I. 

\ 



CP 

l 



_u.v.. aua ' 
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06731 

06732 

06733 

06734 



06735 

06736 
P6737 

06740 

06741 

06742 

06743 

06744 

06745 

06746 

06747 

06750 

06751 

06752 

06753 

06754 

06755 



i 

i . 06756 

< 06757 

06760 

06761 

06762 

06763 

06764 



55 6717 
12 2160 
65 6730 
55 0717 



00 QOOQ 
70 0000 
44 2222 
70 0065 

4«f 2223 
12 6747 
44 2037 
10 2144 
12 2150 
06 2152 
65 0752 
76 1742 

55 6735 
12 2146 
06 2166 
65 0750 
55 6735 



5607 


•* 


1 J P ♦ T F 6 5 Tv,* ; y. V’ • 




ERROR EXIT 


5610 


♦ 


ENTAL*TpAT6 /, :■ 




* SET AL TO 707070 


5611 


• ‘ ’ ^ 


jpALP*TF65f^i. v V;i. ' 




TEST NO JUMP 


5612 

1 




- iapPTP65(^v'-n-^- •• 

‘ ,, - * . 




EXIT 


5613 

5614 


: :mm ■ 

... * ‘ ‘if? 


■ PRoePscott*i#tii#!. 

' REMARK*ERROR. ! 'f| ; SPUY*- 


funct? 


CODE IN C REG. 


5615 


i t *' ■ ‘ ^ 


REMARK*CQMPAR|, MlkSK IN 


AU . 




3616 




REMARK*C0.RRE^#ATTERN 


IN At 




5617 


/ TCG$j* 


t 0* ■ ’ 




JUMP Y LESS THAN OR EQUAL TO 


5620 


• * • v ■ .,?4 


'V..ENTAU*6€ft^fe^ V . 




SET TYPEOUT BUFFER 


5621 


■' '* V ■> 


, STRAL*BuPF|y%^y; • 




TO CODES FOR 65 


5622 


K !i V-'? . : 

• ‘\1 1 

• ■ 4 • ,. v ■ • 

. .• ... • "• i” • ■' -i • 


-v ENYAU*6|'##|S% • ; 







00 0000 
70 0066 
44 2222 
70 0066 
44 2223 
12 6766 
44 2037 



5625 

5626 

5627 
.5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5650 

5651 

5652 



TC 652 



TF 66 - 



TF 66 



STRAIN 
STR^t^TFX;'^p&,, ■ 

ENTilL^Tpil^fe^^^ •• 

JpM(_EQ*U>Kt#| ‘ ' 

^♦TFOltv^f 






SET UP 

ERROR DISPLAY 
SET AU TO 777777 
SET At TO 252525 
SET LESS THAN DESIS 
TEST FOR JUMP 
ERROR DISPLAY 



lJP*TC65^^VTif ;■ 

ENTAL#T P0T1 ' > 

CMSK*TRAB‘l •%> .&• 

JPMLEQ^TC6B2. / 

IJPKTC65 ■ 

PROS*SCOTT»30APL64 

remark*error display# fungi* code in c reg. 

REM ARK* CORRECT PATTERN IN Au 



ERROR EXIT 
CLR AL 
CLR 0ESI6 
TEST NO JUMP 
EXIT 



'U.' 

•%. , 



REMARK*N 0 DISPLAY in al 
0* 

ENTALK *66 
STRAL*BuFF 1 < 

ENTALK *66 
STRAL*BuFF 2 
ENTAL*L 0 K +3 
STRAUTfX .■ . 



JUMP AU NEGATIVE 66 
SET TYPEOUT BUFFER 
TO CODES FOR 66 



SET UP 

ERROR DISPLAY 



) 
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06765 

06766 

06767 

06770 

06771 
0677# 



06774 

06775 

06776 

06777 

07000 

07001 

07002 

07003 

07004 



10 §160 
66 6771 
76 1742 
55 6756 
10 2172 
66 6767 



5653 

5654 

5655 

5656 



TF662 



06773 55 6756 



5661 

6662 



00 90QP 
70 Q066 
44 2222 

70 0067 
44 2225 
12 7004 
44 2037 
12 2160 
67 7007 



5664 

5665 



5667 






5671 



5673 

6574 

5675 

5676 

5677 



TF672 



07006 


55 


6774 


5700 


•iV 


07QQ7 


12 


2172 


5701 


\U 


07010 


67 


7005 


5702 


*• 


07011 


55 


6774 


5703 

5704 

5705 

5706 


TC6T 


* 






5707 


•V 

TC67 


07012 


00 


oooo 


5710 


07013 


70 


0066 


5711 




07014 


44 


2222 


5712 


* 


07015 


70 


0067 


5713 




07016 


44 


2223 


5714 




07017 


12 


7024 


5715 




07020 


44 


2037 


5716 




07021 


10 


2144 


5717 





ENTAU*TpAT6, I 

jpAUN6*L0Kt3 ' ; 

■ RjptTFDtSK^ 

' 1JFPTF66 

^PAUNG*1^662)ff 

■ V v / . 

;• J^P#TF66 •; : 

F.UNCT. 

REMARk*N0 DISPLAY: IN AU 
'vREMARK^OQlBl^t BATTFBN IN 
0* 

: ENTAU*66^^,r/,vv-V • • 
i.^TRAU*BUF|^^|>^v: ■ 

fCHTAlrK •; 
$TRAl*BUF|SM^|v’ ; 



mm 



• . EnT AE*U OKt 
S tRAUTFX 

ental* • 

vJpAUNQ^LOK^fS'^'C' 

RJPPTFDI%,v?^^ 

IJP*TF67 



SET AU TO 707070 
TEST FOR JUMP 
ERROR DISPLAY 
ERROR EXIT 
SET AU TO 312132 
TEST NO JUMP 

EXIT 

CODE IN C REG* 



JUMP AL NEGATIVE 67 
SET TYPEOUT BUFFER 
TO CODES FOR 67 



SET Up 

ERROR display 
SET AL TO 707070 
TEST FOR JUMP 
ERROR OISPLAY 
ERROR EXIT 



SET At, TO 312|32 
TEST NO JUMP 
EXIT 



Ental*tpA83 

JPALNG*TF672' ;v 
IJP*TF67 

PR0G*SC0TT*3QAPE64 „ , 

REMARK+ERROR Pi SPLAY* FUNCT, CODE in c reg* 
remark*comparE mask In AU 
remark*corr^J PATTERN in AL 

0* y ■ ' - 



JUMP Y GREATER THAN AL 



ENTALK*66 

STRAL*BUFF1 

ENTALK*67 

STRAE*BUFF2 

ENTAL*TC672-l 

STRAU*TFX 

ENTAU^TpAT. w 



SET TYPEOUT BUFFER 
TO CODES FOR 67 



SET UP 

ERROR DISPLAY 
SET AU TO 777777 






tP 



. • a- t K Uw 
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07022 

07023 

07024 

07025 

07026 
07027 

07030 

07031 

07032 



07033 

07034 

07Q35 

07036 

07037 

07040 

07041 

07042 

07043 

07044 

07045 

07046 

07047 

07050 

07051 

07052 

07053 

07054 

07055 

07056 

07057 

07060 

07061 



12 2160 


5720 




ENTAL*TPAT6.>.vv -V, 


SET AL TO 707070 


06 2162 


5721 ’ 




CM5K*TPAT7. V'.-T' 


SET DESI6 


67 7027 


5722' ■ 


* 


. UPMOR^LoK^lV':; ; 


TEST FOR JUMP 


76 4742 


5723 


TC672 


RUP*TFO*f • 


ERROR display 


55 7012 


5724 




IJP*TC67 : V^ip ' ; :• 


ERROR EXIT 


12 2156 


5725 • 


1 


ENTAL*TPAB||^V;> :■ 


SET AL TO OOOOOl 


06 2146 


5726 


. ■ 'v 


CMSK*TPAT|:^::^^«-- . 


CLR DESIG 


67 7025 


5727 


v i 

'■ , ■ ' '5 ’ 


. UPM9R*7C5^||fc^v- ; 


TEST NO JUMP 


55 7012 


5730 


'7V 


' UP*TC67 . 


EXIT 




5731 


■ TF70 i 


PRPG*CA5E7*30*PL54 






5732 




REMARK ♦ERROR OfSPLAY* FUNC7 « 


COPE IN C REG. 




5733 




REMARK*CQRREC,t PATTERN XN 






5734 




REMARK ♦ I NCO Rpj&jp J* .PATTERN |N 


AL ' 


00 oooo 


5735 


TF70 




ENTER AL WITH CO 


70 0067 


5736 




£NTAM<*6lf 


SET TYPEOUT BUFF 



44 2222 
70 0060 
44 2223 
10 7042 
46 2037 
70 7777 
10 2144 
02 2144 

63 7101 
70 0000 
10 2146 
63 7101 
70 7776 
10 2167 
02 2167 
63 7101 

70 0001 
10 2166 
02 2166 
63 7101 
70 5252 



5737 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5760 

5761 

5762 

5763 



STRAL*BUF i 

ST R A L* B UFfFST^^t - 
eNTAU*L0Ktfc>n;f^ 
STRAU*TFO ; ;^'> 
E N T A LK ♦ 7777 , ! 

ENTAU*TpATh 'jff- /*. 
CMAL*TFAT^ ; ’ V ^ '' t " 



w' 



JPN0T*TF700 i./ 
ENT AUK 41 0 i " 
ENTAU*TpATl.: 
UpALNZ*TF700 
ENTAUK*7776 v' ; 
£NTAU*TpABlH 
CMAL*TPABltl 
JpN0T*TF7Q0 ...... 

ENTAUK*0001 
ENTAU*TPAB1 
CMAL*TPABi •' 
JPNOT*TF70Q 
ENTALK*5252 



TO CODES FOR 70 



SET Up 

ERROR DISPLAY 
SET AL TO 777777 
CORRECT TO AU 
IS AL CORRECT 

IS AL CORRECT 
CLR AL 
CLR AU 
ERROR JUMP 
SET AU TO 777776 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 

SET AL TO OOOOOl 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET AL TO 775252 






) 



) 
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07062 

07063 
Q7064 

07065 

07066 
07067 

07070 

07071 

07072 

07073 

07074 

07075 

07076 
P7077 

07100 

07101 

07102 



07103 

07104 

07105 

07106 

07107 

07110 

07111 
07H2 

07113 

07114 

07115 

07116 

07117 
07120 
07121 



( 



PAG- 087 



10 2233 

02 2233 
63 7101 
70 2525 
10 2234 
02 2234 
63 7101 
70 7070 
10 2235 

02 2235 
63 7101 
70 0707 
10 2236 
02 2236 
61 7102 
76 1742 
55 7033 



5764 

5765 

5766 

5767 
5770 ' 

5771 

5772 

5773 



v* v 



ENTAU*TpA|<5 C. 

'• >v, 

CMAU*TPAK|ir-4.f, 

JpN0T*TF70P t ; ■ , 

, ENT AU* 2525^1' . • 

ENTAU*TpAH^#'?,, 

cmai>tpak 6 ijffe ' 

entalk*7o70>^ ! V:>'.: . 
^^AU*TpA)<7f%^ , v . 'v 



i 



00 oooo 
70 0067 
44 2222 

70 0061 

44 2223 
12 7113 
44 2037 
70 0001 

71 0001 
10 2243 
02 2243 
61 7121 

76 1742 
55 7103 
71 2220 



TF71 



TF71’ 



5775 
§776 
5777 
6000 « 
6001 
6002 

6003 

6004 

6005 

6006 
6007 
6010 
6011 
6012 

6013 

6014 

6015 

6016 
6017 
6020 
6021 
6022 

6023 

6024 



6025 TF712 

6026 : MV ; 

6027-..;^.v : jOU 



6WAUfTPAK%f ■ . 
4PNQT*TF?&!^^ : ■ 

JPEQ*TF700t|^pl%; , 



CORRECT TO AU 

IS AU CORRECT 
ERROR JUMP 
SET AL TO 002525 
CORRECT TO AU 
IS AL CORRECT. 
ERROR JUMP 
SET AL TO 777070 
CORRECT TO AU 

IS AL CORRECT 
ERROR JUMP 
SET AL TO 000707 
CORRECT TO AU 
IS AL CORRECT 
YES EXIT 
ERROR DISPLAY 
EXIT 






PRO®*SCOTTP30|PL64 

REMARK*ERROR DjSpLAYf PUNCT# CODE IN C REG 

remark*cqrrecT. pattern IN AU 

REMARK* I NP0RR6CT PATTERN JN AL 
0* 



ENTALK*67 : 
STRAL*BjFFt’ 
ENTALK*6l . 

STRAL*BUFF2 

ENTAL*L0K*3. 

STRAL^TfX 

entalk*oqoi 

ADDALK*00Q1 

ENTAU*TpAS4 

CmAL*TPAS4 

jpeq*lok*3 

rjp*tfdis 

IJP*TF71 

ADDALK*22?P 



ADD AL WITH CONSTANT 71 
SET TYPEOUT BUFFER 
TO CODES FOR 71 



SET UP 

ERROR DISPLAY 
SET AL TO 000001 
ADD AL PLUS 1 
CORRECT TO AU 
IS AL CORRECT 
YES CONTINUE 

ERROR DISPLAY 
ERROR EXIT 
ADD AL + 002220 



00 



iWmws*** 1 **^ *»***-• 
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'■■***: 



07122 


10 2230 


603Q 


. -f. 


0U23 


02 £230 


6031 


. '*! ■ 


07124 


63 7117 


6032 < ; 


' > ‘%Y 


07125 


71 1111 


6033 




07126 


10 §232 


6034 


'f 


07127 


02 8232 


6035 


• 


07130 


63 7U7 


6036 




07131 


71 4444 


6037 




07132 


10 £146 


6040 . 


s;5.ljr 


07133 


63 7U7 


6041 


;\Z.; - I'M. : 


07134 

\ 


55 7103 


I 6042 ‘V 


, 

■^ v,: i> % L 




f 


6043 vV 

6044 






6045 


■ ,y i* * *\*V ri/. * 






6046 *v ; 




07135 


00 0000 


6047 v; 


TS73 ! 


07136 


70 0065 


6050 


' r •. . 


07137 


44 £222 


6051 




07140 


70 0060 


6052 


, 'rft ■ 


07141 


44 £223 


6053 


4 


07142 


70 006? 


6054 




07143 


44 £224 


6055 


& 


07144 


70 0063 


6056 




07145 


44 £225 


6057 


r;,. 


07146 


12 7150 


6060 




07147 


44 £037 
50 7320 


6061 




07150 


6062 


'f.. 


07151 


75 £253 


6063 


‘■T, 


07152 


12 2253 


6064 


V 


07153 


10 2247 


6065 




07154 


02 2247 


6066 




07155 


63 7257 


6067 




07156 


50 7327. 


6070 




07157 


75 2253 


6071 




07160 


12 2253 


6072 


' ; 


07161 


10 2250 


6073 


t. 



) 



' ■ '; »v *V,?. •.,> . £-* 

ENTAU#Tp|j^S^f 
Dmautpak&^I^v ;'•" 

ADPALK* i 
ENTAU*TpM$j 




: .ENTAU*TpAJ||||iil |. > • 
• •- J»ALN2#TF7i*M#*&«. : 






K PROS^MUett^P^lOV 64 . 

. REMARKtEftRQR JPlSPLAY. FUNpT. 
REMARK*CORReP. : PATTERN IN At 

■ ' . REMARKn^P^|^, : P A TTERN IN 

ENTAUH^^^il:'' , 

. • $TRAU;uJ||»^p- .:• .: 

ENTAU*i«#|fe«:: 

■ : --v v^i^r • • 

• SfRAt*BU^|giii^:'‘;V 

ENT ALK*$itf 

ST R AL * B UFf ' t \ 

|NTALKA63'-^> :: >.»V ; :‘ 

$TRAL*BuFF4 \-.\1 
ENTAL*UOKt« f *•,■•: 

STRAL*TpX' : 

ENTSR*0020 ^ .; . 

STRSR*TpAR 

. ENTAL*TpAR.,v ; -..- . -*• . 

ENTAU*TpASAO ' ■ 

CmAL*TPAS10 . . 

JpN0T*TS?30 
ENT$R*0027 
STRSR*TpAR ;• "'. 

ENTAL*TpAR , 

• * • . ; *;V ‘ - r 

ENTAU*TPASA| ; ; ' ; v;: •' 

#*v ;; 

#4 ) : 



CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 

ADD AL +001111 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
ADD AL +774444 
CORRECT TO AU 
ERROR JUMP 
EXIT 



CODE IN C RES* 

I ‘ 

AL 

ENTSR SR 5053 
SET TYPEOUT BUFFER 
TO CODES FOR 5073 



SET UP 

ERROR DISPLAY 
SET SR TO 20 

SAVE SR 

SET AL EQUAL TO 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 27 
SAVE SR 

SET AL EQUAL 5R 
CORRECT TO AU 



0 > 



) 
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/ 

V 




07162 


02 


2250 


6074 


07163 


63 


7257 


6075 


07164 


50 


7335 


6076 


07165 


75 


2253 


6077 


07166 


12 


2253 


6100 


07167 


10 


2251 


6!0i 


07*70 


02 


225V 


6102 


07171 


63 


7257 


6103 


07172 


50 


7332 


6104 


07173 


75 


2253 


6105';. 


07174 


12 


2253 > 


6106 * 


07175 


10 


2252 


6107 


07176 


02 


2252 


6110 


07177 


63 


7257 


6U1 


07200 


50 


7317 


6112 


07201 


75 


2253 


6U3 


07202 


12 


2253 


6114 


07203 


10 


2240 


6115 


07204 


02 


2240 


6U6 


07205 


63 


7257 


6117 


07206 


50 


7304 


6120 

C « 


07207 


75 


2253 


6121 


07210 


12 


2253 


6122 


07211 


10 


2244 


6123 


07212 


02 


2244 


6124 


07213 


63 


7257 


6125 


07214 


50 


7312 


6126 


07215 


75 


2253 


6127 


07216 


12 


2253 


6130 


07217 


10 


2242 


6131 


07220 


02 


2242 


6132 


07221 


63 


7257 


6133 


07222 


50 


7301 


6134 


07223 


75 


2253 


6135 


07224 


12 


2253 


6136 


07225 


10 


2166 


6137 


07226 


02 


2166 


6140 






PMAL*TPASU , 

JPNOT*TS730 

ENTSR*003S^^:^H' 

■ STRSR*7pA»l^i^;4# •; 
: ENTAltTpAR;^p^ ' ; 

'•Ef4TAU*TpAiHi|lSft ; • 

s|pN0T*T573p;M : r^;r 



5TR5R*TpARji|-;#^ 
ENTAL*TpARTfS,*. 
ENTAU*TpASf;^ ; 
CmA|_*TPAS 5 V ; 
JPN0T*TS730 :4'- 
ENTSR*ool2 : 
STRSR*TPAR : f 

ENTAL*TpAR 



EnTAU*TRAS 5 ; • *£V.; : 
CmAL*TPAS3 r" <■■■■.’ 
JPN 0 T*TS 730 7, 
ENTSR *0001 V 

STRSR*TpAR \ \? ... 

entau*tpar -k v 

ENTAU*TPABl 

cmal+tpabi 

• , % " > , */ ’ 




-uU lWt? ^ * -v 



( 



PAGtr 009 

IS AL CORRECT 
ERROR JUMP 
SET SR TO 35 
cav/E SR 

SET AL EQUAL SR 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 32 
SAVE SR 

SET AL TO EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 

ERROR JUMP 
SET SR TO 17 
SAVE SR 

•SET AL EQUAL SR 
CORRECT TO AU 
>15 AL CORRECT 

error jump 

SET SR TO 15 
SAVE SR 

SET AL EQUAL SR. 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 12 
SAVE SR 

. SET AL EQUAL SR 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 1 
SAVE SR 

SET AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 



SHEET 527 REVISION 
SB-10163 



RASP 090 



07287 


63 


7257 


614V ' 


y- 


apwoTTT$?i^:;^,- 


ERROR JUMP 


07230 


50 


7302 


6142 


• . f . 


ENTSR*0pQ2 V'| : * 


SET SR TO 2 


07231 


75 


2253 


6143 * 


•. ‘ i 


STRSR*TpAR : pir, 


SAVE SR 


07232 


12 


2253 


6144 


& 


;'ENTAL*TpA^^; A ' v 


SET AL EQUAL SR 


07233 


10 


2243 


6145 


,, i ■ . 


E N T A U * T p A 54 ? : :ti I v 1 


CORRECT TO AU 


07234 


02 


2243 


6146 




, eMAt*TPA5Wiv'.v‘v". 


IS AL CORRECT 


07235 


63 


7257 


6147 




'JpN0T*Ts7?^^f^>V^ 

Entsr*ooq4‘4J'Sv • 


ERROR JUMP 


07236 


50 


7304 


6150 


; i, . 


SET SR TO 4 


07237 


75 


2253 


6151 




ST8SR*TpA«^; ; :%:, • 


SAVE SR 


07240 


12 


2253 


6152 




ENTAL*TpAR|«M.;; ' 


SET AL EQUAL SR 


07241 


10 


2244 


6153 




ENTAUtTpA5fM»A ’ 


CORRECT TO AU 


07242 


02 


2244 


6154 ' •- 




' PMAL*TPA55>M^^ v 


IS AL CORRECT 


07243 


63 


7257 


6155 




.4PN0T*T5l3ft,Wf^.}'.; ' 


ERROR JUMP 


07244 


50 


7307 


'6156 : 




■ |nt$rkoo®T4^^ k 


SET SR TO 7 


07245 

07246 


75 

12 


2253 

2253 


6157 

6160 




isK^p; v 


• SAVE SR 
SET AL EQUAL SR 


07247 


10 


2245 


,6161 






CORRECT TO AU 


07250 


02 


2245 


6162 . 




CMAL'*TPAS6^»|^il' 


IS AL CORRECT 


07251 


63 


7257 


6163 


' ifr. 


JPNOT*Ts730ffe 


ERROR JUMP 


07252 


50 


7300 


6164 


M 


ENTSR*OO0O^M;’; 


CLR SR 


07253 


75 


2253 


6165 




strsr*tparS;M>:»: 


SAVE SR 


07254 


12 


2253 


6166 




EnTAL*TpAR^Y • ' 

,V f-f ! 


SET AL EQUAL SR 


07255 


10 


2146 


6167 


V. 


ENTAU*TpATl>" '-V 


CLR AU 


07256 


61 


7260 


6170 




JpAUTTs730fl ; 


EXIT AL ZERO 


07257 


76 


2040 


6171 


TS730 


RJPfTsDlS'V. h-'l •: '• 


ERROR DISPLAY 


07260 


55 


7135 


6172 


K' 


1 JP»TS73 ' '• ' 


EXIT 




6173 


TF73 


PROGtCASET*30APL64 




* 






617«* 


"t; 


remark*error display* funct. 


CODE IN C REG. 








6175 




remark*correct PATTERN in au 










6176 




REMARK*INC0RR6CT PATTERN IN 


AL n 



8 JUMP 73 

SET TYPEOUT BUFFER 
TO CODES FOR 73 



SET UP 



07261 


00 


0000 


6177 ■ 


TF73 


0* 


07262 


70 


0067 


6200 




ENTALK+67 


07263 


44 


2222 


6201 




STRAL*BuFfV.;-u 


07264 


70 


0063 


6202 




ENTALK*63 

$TRAL*BuF|?',fe 


07265 


44 


2223 


6203 




07266 


12 


7303 


, 6204 


\ 


ENT*t.TF»M= 

mm 



03 







SHEET 52B REVISION 
SB-10163 



{ 



07267 44 2037 62Q5 

07270 10 2146 6206 



07271 


40 


7313 


6207 


07272 


36 


QO05 


6210 


07273 


76 


7302 . 


6211 


07274 


36 


0004 


6212 


07275 


76 


7302 


6213 


07276 


36 


QQ07 


.^214, 


07277 


76 


7302 


6215 


07300 


36 


Q0Q2 


6216 


07301 


55 


7261 


6217 


07302 


00 


QOOO 


622Q 


07303 


73 


7311 


6221 


07304 


12 


7313 


6222 


07305 


61 


7310 


6223 


07306 


76 


1742 


6224 

| 


07307 


55 


7261 


6223 


07310 


55 


7302 


6226 


07311 


43 7313 


6227 


07312 


34 


7303 


6230 


07313 


00 


PQOO 


6231 



6232 

6233 

6234 



6235 



j 07323 


00 


QOOO 


6236 


; 07324 


70 


0067 


6237 


1 07325 


44 


2222 


6240 


! 07326 


70 


0064 


6241 


! 07327 


44 


2223 


6242 


; 07330 


12 


7334 


6243 


07331 


44 


2037 


6244 


i 07332 


40 


2253 


6245 


07333 


12 


2144 


6246 


07334 


74 


2253 


6247 


07335 


10 


2253 


6250 






( 



PAGr 



>t 

:» 



■& 

S' 



TF731 



TB73 

TF74 1 



TF74 



stral*tf#;& : : 
|NTAW*7pAffM ;: 
CL*TB73 W^k 
ENTBK*5 

R>*TF73<J$f 



: vV; ^ •■ ’ *■■ • ■ * 




0*0 

BJP*TP73I*£ 
ENTAUT&f • . 

JpAL2*TF73l|p? : f^' - 
RJP*TF015 J' ••'•••*'• ' ;;r ' 1 -* fV - ’ - 




|JP*TF73 mm 
STRBB*Tb73 ‘ 



r. 



ERROR DISPLAY 
CORRECT TO AU 
CLR STORAGE 
SET B TO 5 
TEST JUMP 
SET B TO 4 
TEST JUMP 
SET B TO 7 

TEST JUMP 
SET B TO 2 
CXIT 
ENT 

B JUMP 

CHECK PATTERN 
AL ZERO EXIT 
ERROR DISPLAY 

ERROR EXIT 
EXIT SUB 
STORE PATTERN 
CHECK B 
STORAGE area 



JP*TF730+|:^U:.. 

RESERV*10 / ’ • - v . A 
PR0e*CAsEVt3QAPL64 

REMARK*ERR0R DISPLAY# FUNCT, CODE IN C REG. 
REMARK*CQRRECT. PATTERN IN AJ 

REM ARK* INCORRECT PATTERN IN AL 
0* 

ENTALK*67 • 

5TRAL*BUFF1 
ENTALK*64 
STRAL*BUFF2 
ENTAL*L0Kt4 
STRAL*TFX 



STORE ADDRESS 74 
SET TYPEOUT BUFFER 
TO CODES FOR 74 



CL*TPAR %>• 
ENTAL*TPAT 

STRADR*TPA.R 

ENTAU*TpRR^*f:' 



set up 

ERROR DISPLAY 

CLR STORAGE 
SET AL TO 777777 
TEST FUNC 

SET AU EQUAL ADDRESS 



( 

091 



SHEET & REVISION 8 
SB -10163 



12 2156 
06 g2?6 

63 

12 2146 
74 2253 
10 .2253 
12 2146 

62 7404 
12 2226 
74 2253 

10 2253 
12 2226 
06 2256 

63 7404 
12 2227 
74 2253 
10 2253 
12 2227 

06 2256 
63 7404 
12 2231 
74 2253 
10 2253 
12 2231 
06 2256 
63 7404 

12 2160 
74 2253 
10 2253 
12 2160 
06 2256 
63 7404 
12 2176 
74 2253 

10 2253 
12 2176 



6251 

6252 

6253 



6265 

6256 

6257 
6260 
6261 
6262 



6264 ? 

6265 

6266 / 
6267 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 
630Q 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6310 

6311 

6312 

6313 

6314 



• •; vr.-f W-Y- 






ENTAL*TpA%/C-P'P 

C M S K * T C 04k* : ' -V k , 

STRAOR^TPlU^i^v 

ENTAO*TPMl$i£&* 

gpAUNZ*Tm||i.;® 

ENTAL*TpAK^M^ r l< 



CMsmco 

\JPNOT*TF740|^^; 

ENTAU*TpA 

STRADR*TPAR^^::^ 

lHtAL*TpAKl^'^f«\ 

CHSKncoi^P^II; 

JPNOT*TF7!^0^^W'' 

ental*tpak3j^ : h;-, 
5traor*tpaR".;Iv^ P' 

ENl AU*TpAR k ! ': 

ENTAL*TpA|C3; ;; ;p::»>.i ' 
CMSK*TC0l 
JPN0T4TF74Q 

ENTAL*TpAT6 

STRADRHPAR 

ENTAU*TPAR 

ENTAL*TpAT6 '.V 

CMSK*TCol 

JPN0T*TF740 

ENTAL*TPAB5 

stradr*tpar-‘ . 



ENTAU*TpAR ; .l 
ENTAL*TpA5%v ; 



m) 



PA6^ 092 



CORRECT TO AL 
IS AU CORRECT 

n ♦ 

ERROR JUMP 
CUR AU 
TEST FUNC 

SET AU EQUAU ADDRESS 

CUR AU 

ERROR JUMP 

SET AU TO 002020 

TEST FUNC 

SET AU EQUAU ADDRESS 
CORRECT TO AU 
IS AU CORRECT 
ERROR JUMP 
SET AU TO 005050 
TEST FUNC 

SET AU EQUAU ADDRESS 
CORRECT TO AU 

IS AU CORRECT 
ERROR JUMP 
SET AU TO 007070 
TEST FUNC 

SET AU EQUAU ADDRESS 
CORRECT TO AU 
IS AU CORRECT 
ERROR JUMP 

SET AU TO 707070 
TEST FUNC 

SET AU EQUAU ADDRESS 
CORRECT TO AU 
IS AU CORRECT 
ERROR JUMP 
SET AU TO 010001 
TEST FUNC 

SET AU EQUAL ADDRESS 
CORRECT TO AL 

r ' ) 



SHEET 53©- REVISION 8 
SB -10163 



< 



{ 



( 



PAG r 093 



07402 06 8256 

07403 6l 7*106 

07404 50 4722 

07405 76 4742 

07406 55 7323 



6315 



07407 

07410 

07411 



6317 

6320 

6321 

6322 

6323 



CM5K*TC0|-\ &‘ v . 

JPEQ*TF740+2' 
LSHA*22 ' 

I JP*TF74 m<:'S ?■ V/ 



■is AU CORRECT 
YES EXIT 

EXCHANGE REGS 
ERROR OISPLAY 

EXIT 



00 QOQO 
70 0067 
44 2222 



6325 

6326 



6330 



REMARK»ERROR^SlSPLAYf FUNCT. CODE IN C REG. 

REMARK*CQRREC|. pattern in AU 
REMARK* iNePRP^T PATTERN JN AL 

0* ' 1 ' 

ENTaUK*67^^'-. ;: ' . 

:$TRAt*DUEfte|>^N-.. 



07412 


70 


QQ65 


6331 




07413- 


44 


2223 


6332 


' STf?AL*BUFf8l ! l|j^- 


07414 


12 


7420 


6333 


> ENTALfL0Kt4^;.; &): 


07415 


44 


2037 


6334 


ENTSR* 008 P'^Sp?v 


07416 


40 


2253 


6335 


07417 


50 


7320 


6336 . 


07420 


75 


2253 


6337 : 


■ STRSR*TpAR ; ^t^ y ^v 


07421 


12 


8253 


6340 


; ENTAL*TpARiiip^fv 

ENTAU*TpASlrf^''V-; 


07422 


10 


2247 


6341 


07423 


02 


2247 


6342 


CMAL*TPAS1Q ; 


07424 


63 


7520 


6343 


JPNOT*TF750 . f 


07425 


50 


7327 


6344 


ENTSR*°027 


07426 


75 


2253 


6345 


STRSR*TpAR 


07427 


12 


2253 


6346 


ENTAL*TPAR 


07430 


10 


2250 


6347 


ENTAU*TpA5U - 


07431 


02 


2250 


6350 


’ CmAL*TPASU 

*•. '■ - *\* 


07432 


63 


7520 


6351 


JPN0T*Tf 73Q C i ' 


07433 


50 


7335 


6352 


ENTSR*0035 


07434 


75 


2253 


6353 


STRSR*TPAR , V 


07435 


12 


2253 


6354 


•> ENTAL*TPAR 


07436 


10 


2251 


6355 


EuTAU*TpASl2 


07437 


02 


2251 


6356 


CMAL*TPAS12 


07440 


63 


7520 


6357 


JPN0T*TF750 - - 


07441 


50 


7332 


6360 


ENTSR*0032 



STORE SR 75 

SET TYPEQUT BUFFER 

TO CODES FOR 75 



SET Up 

ERROR DISPL-AT 
CUR STORAGE 
SET SR TO 20 
SAVE SR 

SET AL EQUAL TO SR 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 27 
SAVE SR 

SET AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 

ERROR JUMP 
SET SR TO 35 
SAVE SR 

SET AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 32 



(P 






SHEET 3*531 REVISION- 
SB-10163 




1 

I 



07442 


75 2253 


6361 


■t 


STRSR*TpAR<dfe. . . 


07443 


12 2253 


■6360 




ental*tpar.w- : v;;. 


07444 


10 2252 


6363 


'■» 


■ ENTAU*TpASl,3 ?" :• , 


07445 


02 2252 


6364 


\ v 


CmAI*TPAS13,4% .•* 


07446 


63 7520 


6365 • 


• ii 


JpNOT*TF750^|f % 


07447 


50 7317 


6*66' 


y ' 


■ ENTSR^OplT^f!;,; 

vj. ! v 


07450 


75 2253 


•■6367 ■ ■; 


X 'r ‘ 


. STRSR*TpARv^^4S' : 


07451 


12 2253 


'6370. -n • , 


‘4j 


• • ENTAL*TpAR??|p^l 


07452 


10 2240 


6371 




- 


07453 


02 2240 


6372 f'tfc 


;; 


-CMAUtP 


07454 


63 7520 


6373 




: 'VJRN0T^TF73i5fif|^ 


07455 


50 7304 


■6374* :■ 


:• .% • 


ENTSR*000|ft^l|?v 


07456 


75 2253 


'• 6375 


.* r 


- , STRSR*TPAR;!'4^?^;fe 


07457 


12 2253 


6376 . 




•**.- l ;y, y s . 


07460 


10 2244 


. 6377 h 


“ ; .( ’ 


ENTAU*TpAs|S§pl; : 


07461 


02 2244 


6400 " 






07462 


63 7520 


6401 




JPN 0 T.» TF75MS#i% n 


07463 


50 7300 


.6402 




ENTSR*0000:^^v<i'1' 


07464 


75 2253 


6403 




STRSR*TPAR;S;:^1;| v-’ 


07465 


12 2253 


6404 • 




' CNTAt*TpRR.«^fc- 


07466 


10 2146 


6405 ■ 




CNTAU*TpATt^ri:,‘‘ 


07467 


63 7520 


6406 • 

f r 




jpalnz»tP730 ; |v-:::- 


07470 


50 7302 


6407 




ENTSR*O002.r:.;>;\-'' ; 


07471 


75 2253 


6410 


* 


5TRSR*TpAR ■: 


07472 


12 2253 


6411 




ENTAL*TpAR 1 


07473 


10 2243 


6412 




ENTAU*TPA$4 . .. 


07474 


02 2243 


6413 




CMAL*TPAS4 •- 


07475 


63 7520 


6414 




JPN0T*TF750 \ 


07476 


50 7307 


6415 




ENTSR*0007 , > 


07477 


75 2253 


6416 




STRSR*TPAR. < .^-. ; . , . 


07500 


12 2253 


6417 




ental*tpar 


07501 


10 2245 


6420 




ENTAU*TpAS6 


07502 


02 2245 


6421 




CmAL*TPAS6 


07503 


63 7520 


6422 




JPN0T*Tp750 


07504 


50 7304 


6423 




ENTSR*0004 ■■■ f 


07505 


75 2253 


6424 




STRSR*TpAR 


07506 


12 2253 


6425 


* v 


■ ENTAL*TPAR - :■;!• ■'■•;•• 




<*>SM W*«**W^ 






PA 6" 094 



•SAVE SR ' 

SET AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 17 

SAVE SR 

SET. AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT • 
ERROR JUMP 
SET SR T04 
SAVE SR 

SET AL EQUAL SR 

CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 0 
SAVE SR 

SET AL EQUAL SR 
CORRECT TO AU 
ERROR JUMP 

SET SR TO 2 
SAVE SR 

SET AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 7 
SAVE SR 

SET AL EQUAL SR 
CORRECT TO AU 
IS AL CORRECT 
ERROR JUMP 
SET SR TO 4 
SAVE SR 

SET AL EQUAL SR 




SHEET 532. REVISION 
SB-10163 



1 



( 



07507 


10 2244 


6426 


'I 


07510 


02 2244 


6427 


■\ ' * J 


075X1 


63 7520 


6430 


, V- v : * 


07512 


50 7317 


6431 


fr; 


07513 


75 2253 


: 6432 - 


‘ T '<\ ' . 


07514 


12 2253 


6433 ’ 


' : H 


07515 


10 2240 


6434 




07516 


02 2240 


6435. 




07517 


61 7521 


6436 




07520 


76 1742 


6437 ■ 


TP730 ; 


07521 


55 7407 


6440 


■ * fr i : 




6441 

6442 


TF76 






6443 • 




07522 


00 qoqo 


6444 


TF76 


07523 


70 0067 


6445 




07524 


44 2222 


6446 




07525 


70 Q066 


6447 


;• . 


07526 


44 2223 


6450 




07527 


12 ?531 


6451 




07530 


44 2037 


6452 




07531 


76 7540 


6453 




07532 


34 7536 


6454 


■r 


07533 


76 7540 


6455 




07534 


34 7536 


6456 




07535 


76 7540 


6457 




07536 


30 7546 


6460 


TR76 


07537 


55 7522 


6461 


TF760 


07540 


00 0000 


6462 


07541 


12 7540 


6463 




07542 


71 QOOI 


6464 




07543 


44 7540 


6465 




07544 


12 2146 


6466 




07545 


55 7540 


6467 




07546 


00 1742 


6470 

6471 


TF761 



PAG- 095 



-I'' ’ 



EnTAU^TpAS^ ; > 

cmau*tpa§ 

ENTSR^OOl^^:^'; 

STRSR*TpARJ).ft.^;;v:; 

ENTAU*TPAR.|^p.,‘ ' 

ENTAU*TpAS^;gf,Ai- 

•-:• ■' 

: 'pMAt*TPASl : :#!f^ft^ .. 

• JPEa*fP75pA| ; ^v^;v . : 

„IJP*TF75 

PR03*CA5EY*30APU64 „ 

REMARK*ERR0R DISPLAY? FUNCT, CODE IN c reg 
REMARKANO PI3PEA7. IN AU OR At. 



correct to au 

is AL CORRECT 
ERROR JUMP 
SAVE SR 
STORE SR 
SET AL EQUAL SR 
CORRECT TO AU 

-IS AL CORRECT 
YES EXIT 
error display 

EXIT 



) . 
r ■ 



0* 



ENTALK*&7@® ' : 
STRALfBUFjFlil^^: . 
E N T AL K * 6 6. 
STRAL*BUFF2 " 
ENTAL*L0K42 
STRAL*TFX i»v . 
RJP*TF760‘ 

JP*TR76 t'-l 

• • * i' i 

RJP*TF760: 

JP*TR76! r 
RJP*TF760 ; 
IRJP*TF761 
IJP*TF76 . 

0* ' 
ENTAL»TF760 

addalk*ooox 

STRAL»TF7S0 
ENTAL*TpAfV 
IJP*TF760 . 

0*TFDIS 



.^v'y v • 

■Vvff's' 

•;*r .. ' 



RETURN JUMP 76 

SET TVPEOUT BUFFER 
TO CODES FOR 76 



SET Up 

ERROR DISPLAY 
TEST JUMP 
ERROR JUMP 

TEST JUMP 
ERROR JUMP 
TEST JUMP 
ERROR DISPLAY 
EXIT 

ENTRANCE SUB 
RETURN ADDRESS 
PLUS 1 

RESTORE 
CLR AL 
EXIT 

address 



U*lrUl3 

REMARK*INSERT SELECTED I/O channel number 



■’ V • ’• 






SHEET 533 REVISION 0 
SB-10163 



PA6<? 096 



' 6472 . * 

■ : f . .... %. 



07547 


00 


QPQ0 


6473 

6474'' v 


-V 

mm 


07550 


12 2204 


« 6475 V • 




07551 


50 


*203 
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TPAB5 

TPAK2 

TPAK7 

TPAS** 

TPA54 

TPAT1 

TPAT6 

TR041 

TR051 

TR34 

TR531 

TS4* 

TS42* 

TS432 

TS44 

TS45* 

TS47 

TS52 

TS544 

TS556 

TS62 

TS730 

TSD4 



054*5 

05643 

06166 

06322 

06453 

06604 

067*7 

07005 

0726* 

07407 

020*7 

02014 

02164 

02*76 

02230 

02235 

02250 

02243 

02146 

02160 

02473 

02555 

04160 

06047 

04523 

04665 

050*0 

05122 

05316 

05546 

05752 

06137 

06230 

06555 

07257 

02141 






m 






PAG,. 103 



TF47 

TF52 

TF553 

TF60 

TF614 

TF632 _ 

TF652 

TF70 

TF730 

TR750 

TFD2 

TFDIS2 

TPAB1 

TPAB6 

TPAK3 

TPAR 

TPAS12 

TPA55 

TPAT2 

TPAT7 

TR043 

TR052 

TR35 

TR532 

TS411 

TS422 

TS433 

TS441 

TS453 

T5471 

TS522 

TS545 

1560 

T5622 

TSCOT 

TSOIS 



05456 

05711 

0617* 

06360 

06456 

066*7 

06730 

07033 

07302 

07520 

02022 

02002 

02166 

02200 

02231 

02253 

0225* 

02244 

02150 

02162 

02475 

02557 

04211 

06045 

04540 

04667 

05014 

05140 

05322 

05563 

05774 

06124 

06402 

06574 

02307 












SHEET 541. ~ REVISION 
SB-10163 



